yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Read .metadata files using bytestring

Browse source
This commit is contained in:
Jasper Van der Jeugt 2016-05-17 10:53:11 -04:00
parent b6dfc61f75
commit b1be76da5b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Hakyll/Core/Provider/Metadata.hs
View file

@ -14,6 +14,7 @@ module Hakyll.Core.Provider.Metadata
import Control.Arrow (second)
import Control.Exception (Exception, throwIO)
import Control.Monad (guard)
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as BC
import Data.List.Extended (breakWhen)
import qualified Data.Map as M
@ -59,7 +60,8 @@ loadMetadataHeader fp = do
--------------------------------------------------------------------------------
loadMetadataFile :: FilePath -> IO Metadata
loadMetadataFile fp = do
errOrMeta <- Yaml.decodeFileEither fp
fileContent <- B.readFile fp
let errOrMeta = Yaml.decodeEither' fileContent
either (fail . show) return errOrMeta