Unfoldable Dispatcher

[Lucu.git] / ImplantFile.hs

diff --git a/ImplantFile.hs b/ImplantFile.hs
index bd01923ef9f56275f1deec021dce20d89d9ae374..60f9b54755911f631c693a053129867bb836f687 100644 (file)
--- a/ImplantFile.hs
+++ b/ImplantFile.hs
@@ -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