[commit: packages/filepath] master: Make off the things in the generator which are utilities (8cb60d5)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/filepath

On branch  : master
Link       : http://git.haskell.org/packages/filepath.git/commitdiff/8cb60d591f31fc3ccafb7b149977b1891f6c54c3

>---------------------------------------------------------------

commit 8cb60d591f31fc3ccafb7b149977b1891f6c54c3
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Sun Nov 2 21:46:30 2014 +0000

    Make off the things in the generator which are utilities


>---------------------------------------------------------------

8cb60d591f31fc3ccafb7b149977b1891f6c54c3
 Generate.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Generate.hs b/Generate.hs
index c990a05..8918bcf 100755
--- a/Generate.hs
+++ b/Generate.hs
@@ -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