[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