Add transparent reading of hamlet/hakyll templates

2 files changed, 8 insertions, 8 deletions

diff --git a/src/Hakyll/Web/Template/Read/Hakyll.hs b/src/Hakyll/Web/Template/Read/Hakyll.hs
index e0e10f4..fecf772 100644
--- a/src/Hakyll/Web/Template/Read/Hakyll.hs
+++ b/src/Hakyll/Web/Template/Read/Hakyll.hs
@@ -19,17 +19,17 @@ readTemplate = Template . readTemplate'
         | "$$" `isPrefixOf` string =
             Escaped : readTemplate' (drop 2 string)
         | "$" `isPrefixOf` string =
-            case readIdentifier (drop 1 string) of
-                Just (key, rest) -> Identifier key : readTemplate' rest
+            case readKey (drop 1 string) of
+                Just (key, rest) -> Key key : readTemplate' rest
                 Nothing          -> Chunk "$" : readTemplate' (drop 1 string)
         | otherwise =
             let (chunk, rest) = break (== '$') string
             in Chunk chunk : readTemplate' rest
 
-    -- Parse an identifier into (identifier, rest) if it's valid, and return
+    -- Parse an key into (key, rest) if it's valid, and return
     -- Nothing otherwise
-    readIdentifier string =
-        let (identifier, rest) = span isAlphaNum string
-        in if not (null identifier) && "$" `isPrefixOf` rest
-            then Just (identifier, drop 1 rest)
+    readKey string =
+        let (key, rest) = span isAlphaNum string
+        in if not (null key) && "$" `isPrefixOf` rest
+            then Just (key, drop 1 rest)
             else Nothing
diff --git a/src/Hakyll/Web/Template/Read/Hamlet.hs b/src/Hakyll/Web/Template/Read/Hamlet.hs
index 55b73f8..7b496de 100644
--- a/src/Hakyll/Web/Template/Read/Hamlet.hs
+++ b/src/Hakyll/Web/Template/Read/Hamlet.hs
@@ -35,7 +35,7 @@ fromHamletRT (HamletRT sd) = Template $ map fromSimpleDoc sd
   where
     fromSimpleDoc :: SimpleDoc -> TemplateElement
     fromSimpleDoc (SDRaw chunk) = Chunk chunk
-    fromSimpleDoc (SDVar [var]) = Identifier var
+    fromSimpleDoc (SDVar [var]) = Key var
     fromSimpleDoc (SDVar _) = error
         "Hakyll.Web.Template.Read.Hamlet.fromHamletRT: \
         \Hakyll does not support '.' in identifier names when using \