diff options
Diffstat (limited to 'src/Text/Hakyll/Page.hs')
-rw-r--r-- | src/Text/Hakyll/Page.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs index 902d36b..3888b1d 100644 --- a/src/Text/Hakyll/Page.hs +++ b/src/Text/Hakyll/Page.hs @@ -18,6 +18,7 @@ import Data.Maybe import System.FilePath import System.IO +import Text.Hakyll.Util import Text.Pandoc -- | A Page is basically key-value mapping. Certain keys have special @@ -27,7 +28,6 @@ type Page = M.Map String PageValue -- | We use a ByteString for obvious reasons. type PageValue = B.ByteString - -- | Add a key-value mapping to the Page. addContext :: String -> String -> Page -> Page addContext key value = M.insert key (B.pack value) @@ -61,8 +61,8 @@ readMetaData handle = do line <- hGetLine handle if isDelimiter line then return [] else do others <- readMetaData handle - return $ (trim . break (== ':')) line : others - where trim (key, value) = (key, dropWhile (`elem` ": ") value) + return $ (trimPair . break (== ':')) line : others + where trimPair (key, value) = (trim key, trim $ tail value) isDelimiter :: String -> Bool isDelimiter = L.isPrefixOf "---" |