projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use explicit language extensions & remove extension fields from base.cabal
[ghc-base.git]
/
codepages
/
MakeTable.hs
diff --git
a/codepages/MakeTable.hs
b/codepages/MakeTable.hs
index
cd9a8b6
..
e17380b
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
@@
-201,13
+200,16
@@
compress n ms = runState (mapM lookupOrAdd chunks) (Map.empty, Map.empty)
-- Static parts of the generated module.
languageDirectives :: [String]
-- Static parts of the generated module.
languageDirectives :: [String]
-languageDirectives = ["{-# LANGUAGE MagicHash #-}"]
+languageDirectives = ["{-# LANGUAGE CPP, 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]