X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=ImplantFile.hs;h=60f9b54755911f631c693a053129867bb836f687;hp=b6545a85df72082b0260f879a37e3bdb31c618dd;hb=b22e702f8161447a460847c6e6c97104c150534f;hpb=4e41b11200285142757434e9d67e17ed20fae455

diff --git a/ImplantFile.hs b/ImplantFile.hs
index b6545a8..60f9b54 100644
--- 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