From 56867f5768e59937ebe862a823ad5bc833b4b0a6 Mon Sep 17 00:00:00 2001 From: Henning Guenther Date: Sat, 29 Aug 2009 05:16:24 -0700 Subject: [PATCH] Add warning about auto-generated files Ignore-this: 848d57a87bb839738cb055ff578b4784 darcs-hash:20090829121624-a4fee-b98f311f8e3358d3185d8cf9a796458ef234e2a7 --- Data/Encoding/Preprocessor/Mapping.hs | 3 ++- Data/Encoding/Preprocessor/XMLMappingBuilder.hs | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Data/Encoding/Preprocessor/Mapping.hs b/Data/Encoding/Preprocessor/Mapping.hs index 9502517..c899b8f 100644 --- a/Data/Encoding/Preprocessor/Mapping.hs +++ b/Data/Encoding/Preprocessor/Mapping.hs @@ -104,7 +104,8 @@ preprocessMapping tp src trg mods name = do Nothing -> Nothing Just rc -> Just (rc,fromIntegral i::Word16)) trans)-} writeFile trg $ unlines $ - ["{-# LANGUAGE MagicHash,DeriveDataTypeable #-}" + ["{- This file has been auto-generated. Do not edit it. -}" + ,"{-# LANGUAGE MagicHash,DeriveDataTypeable #-}" ,"module "++mod++"("++name++"(..)) where" ,"" ,"import Data.Encoding.Base" diff --git a/Data/Encoding/Preprocessor/XMLMappingBuilder.hs b/Data/Encoding/Preprocessor/XMLMappingBuilder.hs index 31d27df..03e3e9b 100644 --- a/Data/Encoding/Preprocessor/XMLMappingBuilder.hs +++ b/Data/Encoding/Preprocessor/XMLMappingBuilder.hs @@ -41,7 +41,8 @@ createModuleFromFile (sbase,sfile) (tbase,tfile) = do [(min,max-min+1) | min <- bmin | max <- bmax] | (st,end,bfirst,blast,bmin,bmax) <- ranges xml ] writeFile (tbasetfile) $ unlines $ - ["{-# LANGUAGE MagicHash,DeriveDataTypeable #-}"]++ + ["{- This file has been auto-generated. Do not edit it. -}" + ,"{-# LANGUAGE MagicHash,DeriveDataTypeable #-}"]++ (case description xml of Nothing -> [] Just str -> ["{- | "++str++" -}"]) ++