Unfoldable Dispatcher

[Lucu.git] / ImplantFile.hs

diff --git a/ImplantFile.hs b/ImplantFile.hs
index b6545a85df72082b0260f879a37e3bdb31c618dd..60f9b54755911f631c693a053129867bb836f687 100644 (file)
--- a/ImplantFile.hs
+++ b/ImplantFile.hs
@@ -10,7 +10,7 @@ import Data.Maybe
 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
@@ -179,7 +179,7 @@ generateHaskellSource opts srcFile
     = 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