diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-02 12:49:43 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-02 12:49:43 +0100 |
| commit | 220e4b484cb460df0e0a0cb50a309788349745b2 (patch) | |
| tree | 19df2bfe2c6376b3aaa899eb2fe8e647e7f473a8 /src/Hakyll/Web/Template | |
| parent | 2d1225104cb5a050a84bc70916e1aadfff25fb00 (diff) | |
| download | hakyll-220e4b484cb460df0e0a0cb50a309788349745b2.tar.gz | |
Escaped carries allong it's escaped value
Diffstat (limited to 'src/Hakyll/Web/Template')
| -rw-r--r-- | src/Hakyll/Web/Template/Internal.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Hakyll/Web/Template/Internal.hs b/src/Hakyll/Web/Template/Internal.hs index 43df1db..be10881 100644 --- a/src/Hakyll/Web/Template/Internal.hs +++ b/src/Hakyll/Web/Template/Internal.hs @@ -29,16 +29,16 @@ instance Writable Template where data TemplateElement = Chunk String | Identifier String - | EscapeCharacter + | Escaped String deriving (Show, Eq, Typeable) instance Binary TemplateElement where put (Chunk string) = putWord8 0 >> put string put (Identifier key) = putWord8 1 >> put key - put (EscapeCharacter) = putWord8 2 + put (Escaped key) = putWord8 2 >> put key get = getWord8 >>= \tag -> case tag of - 0 -> Chunk <$> get + 0 -> Chunk <$> get 1 -> Identifier <$> get - 2 -> return EscapeCharacter + 2 -> Escaped <$> get _ -> error "Error reading cached template" |