Basic generator cleanups
authorNeil Mitchell <ndmitchell@gmail.com>
Wed, 29 Oct 2014 08:04:26 +0000 (08:04 +0000)
committerNeil Mitchell <ndmitchell@gmail.com>
Wed, 29 Oct 2014 08:04:26 +0000 (08:04 +0000)
Generate.hs

index 7f956e7..8453818 100755 (executable)
@@ -1,22 +1,25 @@
 
-module Main where
+module Generate(main) where
 
 import Data.Char
 import Data.List
 import System.IO
 
 
-data Test = Expr String
-          | Test [String] String
-          deriving Show
+data Test
+    = Expr String
+    | Test [String] String
+      deriving Show
 
 isExpr (Expr{}) = True
 isExpr _ = False
 
 
-main = do src <- readFile "System/FilePath/Internal.hs"
-          let tests = concatMap getTest $ zip [1..] (lines src)
-          writeFileBinary "tests/FilePath_Test.hs" (prefix ++ genTests tests)
+main :: IO ()
+main = do
+    src <- readFile "System/FilePath/Internal.hs"
+    let tests = concatMap getTest $ zip [1..] (lines src)
+    writeFileBinary "tests/FilePath_Test.hs" (prefix ++ genTests tests)
 
 prefix = unlines
     ["import AutoTest"