haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add warning about auto-generated files

Browse Source 
Ignore-this: 848d57a87bb839738cb055ff578b4784

darcs-hash:20090829121624-a4fee-b98f311f8e3358d3185d8cf9a796458ef234e2a7
This commit is contained in:
Henning Guenther 2009-08-29 05:16:24 -07:00
parent 98ece426d9
commit 56867f5768
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Data/Encoding/Preprocessor/Mapping.hs
View File

@ -104,7 +104,8 @@ preprocessMapping tp src trg mods name = do
Nothing -> Nothing Nothing -> Nothing
Just rc -> Just (rc,fromIntegral i::Word16)) trans)-} Just rc -> Just (rc,fromIntegral i::Word16)) trans)-}
writeFile trg $ unlines $ writeFile trg $ unlines $
["{-# LANGUAGE MagicHash,DeriveDataTypeable #-}" ["{- This file has been auto-generated. Do not edit it. -}"
,"{-# LANGUAGE MagicHash,DeriveDataTypeable #-}"
,"module "++mod++"("++name++"(..)) where" ,"module "++mod++"("++name++"(..)) where"
,"" ,""
,"import Data.Encoding.Base" ,"import Data.Encoding.Base"

3
Data/Encoding/Preprocessor/XMLMappingBuilder.hs
View File

@ -41,7 +41,8 @@ createModuleFromFile (sbase,sfile) (tbase,tfile) = do
[(min,max-min+1) | min <- bmin | max <- bmax] [(min,max-min+1) | min <- bmin | max <- bmax]
| (st,end,bfirst,blast,bmin,bmax) <- ranges xml ] | (st,end,bfirst,blast,bmin,bmax) <- ranges xml ]
writeFile (tbase</>tfile) $ unlines $ writeFile (tbase</>tfile) $ unlines $
["{-# LANGUAGE MagicHash,DeriveDataTypeable #-}"]++ ["{- This file has been auto-generated. Do not edit it. -}"
,"{-# LANGUAGE MagicHash,DeriveDataTypeable #-}"]++
(case description xml of (case description xml of
Nothing -> [] Nothing -> []
Just str -> ["{- | "++str++" -}"]) ++ Just str -> ["{- | "++str++" -}"]) ++