Top-level module for reading templates

src/Hakyll.hs

@@ -10,6 +10,7 @@ module Hakyll
     , module Hakyll.Core.Util.Arrow
     , module Hakyll.Core.Util.File
     , module Hakyll.Core.Writable
+    , module Hakyll.Main
     , module Hakyll.Web
     , module Hakyll.Web.CompressCss
     , module Hakyll.Web.Feed
@@ -33,6 +34,7 @@ import Hakyll.Core.Rules
 import Hakyll.Core.Util.Arrow
 import Hakyll.Core.Util.File
 import Hakyll.Core.Writable
+import Hakyll.Main
 import Hakyll.Web
 import Hakyll.Web.CompressCss
 import Hakyll.Web.Feed

src/Hakyll/Web.hs

@@ -20,8 +20,7 @@ import Hakyll.Core.Identifier
 import Hakyll.Web.Page
 import Hakyll.Web.Pandoc
 import Hakyll.Web.Template
-import Hakyll.Web.Template.Read.Hakyll
-import Hakyll.Web.Template.Read.Hamlet
+import Hakyll.Web.Template.Read
 import Hakyll.Web.RelativizeUrls
 import Hakyll.Web.Util.String
 import Hakyll.Web.CompressCss

src/Hakyll/Web/Feed.hs

@@ -32,6 +32,7 @@ import Hakyll.Core.Compiler
 import Hakyll.Web.Page
 import Hakyll.Web.Page.Metadata
 import Hakyll.Web.Template
+import Hakyll.Web.Template.Read.Hakyll (readTemplate)
 
 import Paths_hakyll
 

src/Hakyll/Web/Template.hs

@@ -8,7 +8,7 @@ import Data.Maybe (fromMaybe)
 import qualified Data.Map as M
 
 import Hakyll.Web.Template.Internal
-import Hakyll.Web.Template.Read.Hakyll (readTemplate)
+import Hakyll.Web.Template.Read
 import Hakyll.Web.Page
 
 -- | Substitutes @$identifiers@ in the given @Template@ by values from the given

src/Hakyll/Web/Template/Read.hs

@@ -0,0 +1,10 @@
+-- | Re-exports all different template reading modules
+--
+module Hakyll.Web.Template.Read
+    ( readTemplate
+    , readHamletTemplate
+    , readHamletTemplateWith
+    ) where
+
+import Hakyll.Web.Template.Read.Hakyll
+import Hakyll.Web.Template.Read.Hamlet

src/Hakyll/Web/Template/Read/Hakyll.hs

@@ -6,7 +6,6 @@ module Hakyll.Web.Template.Read.Hakyll
 
 import Data.List (isPrefixOf)
 import Data.Char (isAlphaNum)
-import Data.Maybe (fromMaybe)
 
 import Hakyll.Web.Template.Internal
 

src/Hakyll/Web/Template/Read/Hamlet.hs

@@ -6,12 +6,8 @@ module Hakyll.Web.Template.Read.Hamlet
     , readHamletTemplateWith
     ) where
 
-import Control.Monad.Trans (liftIO)
-import System.FilePath (takeExtension)
-
 import Text.Hamlet (HamletSettings (..), defaultHamletSettings)
 import Text.Hamlet.RT
-import Control.Failure
 
 import Hakyll.Web.Template.Internal
 

tests/Hakyll/Web/Template/Tests.hs

@@ -11,8 +11,7 @@ import qualified Data.Map as M
 
 import Hakyll.Web.Page
 import Hakyll.Web.Template
-import Hakyll.Web.Template.Read.Hakyll
-import Hakyll.Web.Template.Read.Hamlet
+import Hakyll.Web.Template.Read
 import TestSuite.Util
 
 tests :: [Test]