From 4748a7927948a6538c6e96a3d06bea75545b9301 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 13 Nov 2010 12:34:30 +0000 Subject: [PATCH] Add some comments to the generated Table.hs --- GHC/IO/Encoding/CodePage/Table.hs | 5 ++++- codepages/MakeTable.hs | 6 ++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/GHC/IO/Encoding/CodePage/Table.hs b/GHC/IO/Encoding/CodePage/Table.hs index 2916ef9..0773851 100644 --- 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 --- 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] -- 1.7.10.4