[commit: packages/filepath] master: Add a note that TestGen is generated (6a242ae)

git at git.haskell.org git at git.haskell.org
Thu Mar 19 11:37:14 UTC 2015


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

On branch  : master
Link       : http://git.haskell.org/packages/filepath.git/commitdiff/6a242ae72a88e4696d457db498a01221e42aa725

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

commit 6a242ae72a88e4696d457db498a01221e42aa725
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Mon Nov 3 15:51:14 2014 +0000

    Add a note that TestGen is generated


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

6a242ae72a88e4696d457db498a01221e42aa725
 Generate.hs      | 3 ++-
 tests/TestGen.hs | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Generate.hs b/Generate.hs
index 36b19a2..573866a 100755
--- a/Generate.hs
+++ b/Generate.hs
@@ -15,7 +15,8 @@ main = do
     src <- readFile "System/FilePath/Internal.hs"
     let tests = map renderTest $ concatMap parseTest $ lines src
     writeFileBinaryChanged "tests/TestGen.hs" $ unlines $
-        ["module TestGen(tests) where"
+        ["-- GENERATED CODE: See ../Generate.hs"
+        ,"module TestGen(tests) where"
         ,"import TestUtil"
         ,"import qualified System.FilePath.Windows as W"
         ,"import qualified System.FilePath.Posix as P"
diff --git a/tests/TestGen.hs b/tests/TestGen.hs
index bd5c29a..7bae497 100755
--- a/tests/TestGen.hs
+++ b/tests/TestGen.hs
@@ -1,3 +1,4 @@
+-- GENERATED CODE: See ../Generate.hs
 module TestGen(tests) where
 import TestUtil
 import qualified System.FilePath.Windows as W



More information about the ghc-commits mailing list