diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 13:26:57 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 13:26:57 +0100 |
| commit | 6a2e6998b125024e9260d26819c262e0e7d22c8d (patch) | |
| tree | b00286fa709701e6e072e84d4f7225d8d6fbd801 /src/Text/Hakyll/Context.hs | |
| parent | bc71d54ab732d71e2f1a3c5e3dce9f3231334605 (diff) | |
| download | hakyll-6a2e6998b125024e9260d26819c262e0e7d22c8d.tar.gz | |
Worked on substitution.
Diffstat (limited to 'src/Text/Hakyll/Context.hs')
| -rw-r--r-- | src/Text/Hakyll/Context.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/Text/Hakyll/Context.hs b/src/Text/Hakyll/Context.hs index 3d6f88c..22409bf 100644 --- a/src/Text/Hakyll/Context.hs +++ b/src/Text/Hakyll/Context.hs @@ -3,7 +3,6 @@ module Text.Hakyll.Context ( ContextManipulation , renderValue , renderDate - , ignoreKeys ) where import qualified Data.Map as M @@ -45,9 +44,3 @@ renderDate key format defaultValue context = "%Y-%m-%d" dateString :: Maybe UTCTime return $ formatTime defaultTimeLocale format time - --- | Ignore a number of keys during the render phase. -ignoreKeys :: [String] -> ContextManipulation -ignoreKeys keyList = M.union (M.fromList pairs) - where pairs = map pair keyList - pair key = (B.pack $ '$' : key, B.pack $ '$' : key) |