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!
--- 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

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.
-
 --}
 
 module Main where
@@ -207,7 +206,10 @@ languageDirectives = ["{-# LANGUAGE MagicHash #-}"]
 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]