diff options
| author | samgd <sam@samgd.com> | 2016-07-23 12:52:55 +0200 |
|---|---|---|
| committer | samgd <sam@samgd.com> | 2016-07-23 12:52:55 +0200 |
| commit | 430a0a8849191edfa7b53dcf76a0fb72f12ebde7 (patch) | |
| tree | bea6202e12b0d2e02fbbe009aa3563c6bd9e083d /src/Hakyll | |
| parent | 6e14d33a101e4ea9559d13d7a562da7ebc72acf2 (diff) | |
| download | hakyll-430a0a8849191edfa7b53dcf76a0fb72f12ebde7.tar.gz | |
Partial trimming
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Web/Template/Internal.hs | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/src/Hakyll/Web/Template/Internal.hs b/src/Hakyll/Web/Template/Internal.hs index 983bd16..6ccad74 100644 --- a/src/Hakyll/Web/Template/Internal.hs +++ b/src/Hakyll/Web/Template/Internal.hs @@ -142,7 +142,7 @@ template = mconcat <$> P.many (P.choice [ lift chunk , lift escaped , conditional , for - , lift partial + , partial , lift expr ]) where lift = fmap (Template . (:[])) @@ -246,12 +246,18 @@ for = P.try $ do -------------------------------------------------------------------------------- -partial :: P.Parser TemplateElement +partial :: P.Parser Template partial = P.try $ do - void $ P.string "$partial(" + trimLPartial <- trimOpen + void $ P.string "partial(" e <- expr' - void $ P.string ")$" - return $ Partial e + void $ P.char ')' + trimRPartial <- trimClose + + pure $ Template $ mconcat [ [TrimL | trimLPartial] + , [Partial e] + , [TrimR | trimRPartial] + ] -------------------------------------------------------------------------------- |