Fix for GHC 6.12: use explict Latin-1 encoding for the input files
authorSimon Marlow <marlowsd@gmail.com>
Wed, 26 May 2010 08:44:04 +0000 (08:44 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 26 May 2010 08:44:04 +0000 (08:44 +0000)
gc/spellcheck/spellcheck.hs

index 8690ce4..d907ffe 100644 (file)
@@ -1,10 +1,16 @@
 import System.Environment (getArgs)
 import qualified Data.Set as Set
+import System.IO
 
 main = do
   [file1,file2] <- getArgs
-  dict <- readFile file1
-  input <- readFile file2
+  dict <- readFileLatin1 file1
+  input <- readFileLatin1 file2
   let set = Set.fromList (words dict)
   let tocheck = words input
   print (filter (`Set.notMember` set) tocheck)
+
+readFileLatin1 f = do
+  h <- openFile f ReadMode
+  hSetEncoding h latin1
+  hGetContents h