From 0eb1348f32545fd29e29a32fa829cbfdaca4c4a9 Mon Sep 17 00:00:00 2001
From: Yuji Yamamoto <whosekiteneverfly@gmail.com>
Date: Sun, 22 Dec 2019 15:29:08 +0900
Subject: [PATCH] Correct test: the tested function is not actually used!

https://github.com/nushio3/unicode-show/issues/2#issuecomment-277524867
---
 test/Spec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Spec.hs b/test/Spec.hs
index bd43ed5..5b13edc 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -46,7 +46,7 @@ spec =
         \a b -> let v = a :@\& b in read (ushow v) `shouldBe` v
 
       prop "read . ushow == id, for some crazy Unicode type" $
-        \a b -> let v = a :＠\& b in read (show v) `shouldBe` v
+        \a b -> let v = a :＠\& b in read (ushow v) `shouldBe` v
 
       prop "read . ushow == id, for compound type" $
         \str -> read (ushow str) `shouldBe` (str :: Either [String] (String,String))