Make off the things in the generator which are utilities
authorNeil Mitchell <ndmitchell@gmail.com>
Sun, 2 Nov 2014 21:46:30 +0000 (21:46 +0000)
committerNeil Mitchell <ndmitchell@gmail.com>
Sun, 2 Nov 2014 21:46:30 +0000 (21:46 +0000)
Generate.hs

index c990a05..8918bcf 100755 (executable)
@@ -110,6 +110,10 @@ genTest (Test free x) = "test (\\" ++ concatMap ((' ':) . f) free ++ " -> (" ++
         f [a] | a >= 'x' = "(QFilePath " ++ [a] ++ ")"
         f x = x
 
+
+---------------------------------------------------------------------
+-- UTILITIES
+
 writeFileBinary :: FilePath -> String -> IO ()
 writeFileBinary file x = withBinaryFile file WriteMode $ \h -> hPutStr h x