summaryrefslogtreecommitdiff
path: root/src/Hakyll/Web/Template
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2011-02-09 13:27:45 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2011-02-09 13:27:45 +0100
commit9e07d1ba364ca401cc1c6f5704023b1df1006779 (patch)
treee33c4897b1623c1b2efd8d4aa8fec2aceec546b1 /src/Hakyll/Web/Template
parentee320c61668b532cafce7f4fd0a80ba43b3b512a (diff)
downloadhakyll-9e07d1ba364ca401cc1c6f5704023b1df1006779.tar.gz
Template syntax: $foo → $foo$
Diffstat (limited to 'src/Hakyll/Web/Template')
-rw-r--r--src/Hakyll/Web/Template/Internal.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Web/Template/Internal.hs b/src/Hakyll/Web/Template/Internal.hs
index 096c928..d0f6472 100644
--- a/src/Hakyll/Web/Template/Internal.hs
+++ b/src/Hakyll/Web/Template/Internal.hs
@@ -29,17 +29,17 @@ instance Writable Template where
data TemplateElement
= Chunk String
| Identifier String
- | Escaped String
+ | Escaped
deriving (Show, Eq, Typeable)
instance Binary TemplateElement where
put (Chunk string) = putWord8 0 >> put string
put (Identifier key) = putWord8 1 >> put key
- put (Escaped key) = putWord8 2 >> put key
+ put (Escaped) = putWord8 2
get = getWord8 >>= \tag -> case tag of
0 -> Chunk <$> get
1 -> Identifier <$> get
- 2 -> Escaped <$> get
+ 2 -> return Escaped
_ -> error $ "Hakyll.Web.Template.Internal: "
++ "Error reading cached template"