Top-level module for reading templates

6 files changed, 13 insertions, 8 deletions

diff --git a/src/Hakyll/Web.hs b/src/Hakyll/Web.hs
index f991e21..92cdab5 100644
--- a/src/Hakyll/Web.hs
+++ b/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
diff --git a/src/Hakyll/Web/Feed.hs b/src/Hakyll/Web/Feed.hs
index 17a69eb..417f484 100644
--- a/src/Hakyll/Web/Feed.hs
+++ b/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
 
diff --git a/src/Hakyll/Web/Template.hs b/src/Hakyll/Web/Template.hs
index 83fd7eb..06794e8 100644
--- a/src/Hakyll/Web/Template.hs
+++ b/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
diff --git a/src/Hakyll/Web/Template/Read.hs b/src/Hakyll/Web/Template/Read.hs
new file mode 100644
index 0000000..421b7e9
--- /dev/null
+++ b/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
diff --git a/src/Hakyll/Web/Template/Read/Hakyll.hs b/src/Hakyll/Web/Template/Read/Hakyll.hs
index fbbfee2..e0e10f4 100644
--- a/src/Hakyll/Web/Template/Read/Hakyll.hs
+++ b/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
 
diff --git a/src/Hakyll/Web/Template/Read/Hamlet.hs b/src/Hakyll/Web/Template/Read/Hamlet.hs
index 1c9bbf6..55b73f8 100644
--- a/src/Hakyll/Web/Template/Read/Hamlet.hs
+++ b/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