import Language.Haskell.TH.PprLib
import Language.Haskell.TH.Syntax
import Network.HTTP.Lucu.ETag
-import Network.HTTP.Lucu.Implant.Input
+import Network.HTTP.Lucu.Implant
import Network.HTTP.Lucu.Implant.PrettyPrint
import Network.HTTP.Lucu.MIMEType
import Prelude.Unicode
= do i ← openInput srcFile (getMIMEType opts) (getETag opts)
o ← openOutput opts
doc ← pprInput i modName symName
- hPutStrLn o $ show $ to_HPJ_Doc doc
+ hPutStrLn o ∘ show $ to_HPJ_Doc doc
hClose o
where
modName ∷ ModName