haskell#4, make QFilePath have the right set Char instance

bgamari · Oct 19, 2014 · e6e5b6f · e6e5b6f
1 parent e447cc5
commit e6e5b6f
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/tests/AutoTest.hs b/tests/AutoTest.hs
@@ -21,16 +21,16 @@ constTest False = error "Failed on constTest"
 
 
 
-data QFilePath = QFilePath FilePath
+newtype QFilePath = QFilePath FilePath
                  deriving Show
 
 instance Arbitrary QFilePath where
-    arbitrary = liftM QFilePath arbitrary
+    arbitrary = fmap (QFilePath . map fromQChar) arbitrary
 
+newtype QChar = QChar {fromQChar :: Char}
 
--- QuickCheck 2.4.1.1 has its own Arbitrary Char instance, so commented out for now
--- instance Arbitrary Char where
---     arbitrary = elements "?|./:\\abcd 123;_"
+instance Arbitrary QChar where
+    arbitrary = fmap QChar $ elements "?|./:\\abcd 123;_"