diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 13:27:45 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 13:27:45 +0100 |
| commit | 9e07d1ba364ca401cc1c6f5704023b1df1006779 (patch) | |
| tree | e33c4897b1623c1b2efd8d4aa8fec2aceec546b1 /src/Hakyll/Web/Template | |
| parent | ee320c61668b532cafce7f4fd0a80ba43b3b512a (diff) | |
| download | hakyll-9e07d1ba364ca401cc1c6f5704023b1df1006779.tar.gz | |
Template syntax: $foo → $foo$
Diffstat (limited to 'src/Hakyll/Web/Template')
| -rw-r--r-- | src/Hakyll/Web/Template/Internal.hs | 6 |
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" |
