Better module definitions.

1 files changed, 8 insertions, 3 deletions

diff --git a/src/Text/Hakyll/Render.hs b/src/Text/Hakyll/Render.hs
index 3e17659..89e6a7c 100644
--- a/src/Text/Hakyll/Render.hs
+++ b/src/Text/Hakyll/Render.hs
@@ -1,4 +1,9 @@
-module Text.Hakyll.Render where
+module Text.Hakyll.Render 
+    ( renderPage,
+      renderAndWrite,
+      static,
+      staticDirectory
+    ) where
 
 import Text.Template
 import qualified Data.ByteString.Lazy.Char8 as B
@@ -20,8 +25,8 @@ createContext = M.fromList . map packPair . M.toList
 
 renderPage :: FilePath -> Page -> IO Page
 renderPage templatePath page = do
-    template <- B.readFile templatePath
-    let body = substitute template (createContext page)
+    templateString <- B.readFile templatePath
+    let body = substitute templateString (createContext page)
     return $ addContext "body" (B.unpack body) page
 
 renderAndWrite :: FilePath -> Page -> IO ()