Add some comments to the generated Table.hs

diff --git a/GHC/IO/Encoding/CodePage/Table.hs b/GHC/IO/Encoding/CodePage/Table.hs
index 2916ef9..0773851 100644 (file)
--- a/GHC/IO/Encoding/CodePage/Table.hs
+++ b/GHC/IO/Encoding/CodePage/Table.hs
@@ -1,6 +1,9 @@
 {-# LANGUAGE MagicHash #-}
 -- Do not edit this file directly!
 {-# LANGUAGE MagicHash #-}
 -- Do not edit this file directly!

--- It was generated by the MakeTable.hs script using the following files:
+-- It was generated by the MakeTable.hs script using the files below.
+-- To regenerate it, run "make" in ../../../../codepages/
+-- 
+-- Files:

 -- CP037.TXT
 -- CP1026.TXT
 -- CP1250.TXT
 -- CP037.TXT
 -- CP1026.TXT
 -- CP1250.TXT

diff --git a/codepages/MakeTable.hs b/codepages/MakeTable.hs
index cd9a8b6..951274e 100644 (file)
--- a/codepages/MakeTable.hs
+++ b/codepages/MakeTable.hs
@@ -14,7 +14,6 @@ Currently, this script only supports single-byte encodings, since the lookup
 tables required for the CJK double-byte codepages are too large to be
 statically linked into every executable.  We plan to add support for them once
 GHC is able to produce Windows DLLs.
 tables required for the CJK double-byte codepages are too large to be
 statically linked into every executable.  We plan to add support for them once
 GHC is able to produce Windows DLLs.

-

 --}
 
 module Main where
 --}
 
 module Main where

@@ -207,7 +206,10 @@ languageDirectives = ["{-# LANGUAGE MagicHash #-}"]
 firstComment :: [FilePath] -> [String]
 firstComment files = map ("-- " ++) $
     [ "Do not edit this file directly!"
 firstComment :: [FilePath] -> [String]
 firstComment files = map ("-- " ++) $
     [ "Do not edit this file directly!"

-    , "It was generated by the MakeTable.hs script using the following files:"
+    , "It was generated by the MakeTable.hs script using the files below."
+    , "To regenerate it, run \"make\" in ../../../../codepages/"
+    , ""
+    , "Files:"

     ] ++ map takeFileName files
 
 theImports :: [String]
     ] ++ map takeFileName files
 
 theImports :: [String]