src/stringify.hs

   1 module Main where
   2
   3 import System.Environment (getArgs)
   4
   5 main :: IO ()
   6 main = do -- Module header
   7           [modulename, varname] <- getArgs
   8           putStrLn $ "module " ++ modulename ++ " (" ++ varname ++ ") where"
   9           -- Type sig so we can compile -Wall -Werror
  10           putStrLn $ varname ++ " :: String"
  11           -- And now quote the stdin so it's a String
  12           thedata <- getContents
  13           putStrLn $ varname ++ " = " ++ show thedata