src/Templates.hs Modified

@@ -83,7 +83,7 @@
     -> Template
     -> IO (Either (RuntimeError SourcePos) (GVal (Run SourcePos IO Html)))
 generate output context template = do
-    let target = (</>) output . takeFileName . templatePath $ template
+    let target = (output </>) . takeFileName . templatePath $ template
     writeFile target ""  -- Clear contents of file if it exists
     easyRenderM (writeTo target) context . templateGinger $ template
 

src/Repositories.hs Modified

@@ -49,7 +49,7 @@
 use it too.
 -}
 getDescription :: FilePath -> IO Text
-getDescription = fmap (fromRight "") . tryIOError . fmap pack . readFile . flip (</>) "description"
+getDescription = fmap (fromRight "") . tryIOError . fmap pack . readFile . (</> "description")
 
 ----------------------------------------------------------------------------------------
 -- Private -----------------------------------------------------------------------------