Permalink
Browse files

module name and GHC pragmas

  • Loading branch information...
1 parent 40a3f67 commit 56f7616775af7d9867dbe80d9ffb3c2a2bf00079 @singpolyma committed Aug 23, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 mustache2hs.hs
View
@@ -309,7 +309,11 @@ main = do
let types' = concat types
let inputs' = map (second (\r -> fromMaybe r (join $ lookup r types'))) inputs
builder <- evalStateT (codeGenFiles (concat recs) inputs') []
- putStrLn "import Data.Maybe"
+ -- GHC pragma turns off warnings we know about
+ -- Should be ignored by other compilers, so is safe
+ putStrLn "{-# OPTIONS_GHC -fno-warn-missing-signatures -fno-warn-unused-matches #-}"
+ putStrLn "module MustacheTemplates where"
+ putStrLn ""
putStrLn "import Data.Monoid"
putStrLn "import Text.PrettyPrint.Leijen"
putStrLn "import qualified Blaze.ByteString.Builder.Char.Utf8 as Builder"

0 comments on commit 56f7616

Please sign in to comment.