From b1be76da5b7340dd648885e0bfdadc4cc6fa8cbf Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 17 May 2016 10:53:11 -0400 Subject: Read `.metadata` files using bytestring --- src/Hakyll/Core/Provider/Metadata.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Hakyll/Core/Provider/Metadata.hs b/src/Hakyll/Core/Provider/Metadata.hs index 0b0291c..6285ce1 100644 --- a/src/Hakyll/Core/Provider/Metadata.hs +++ b/src/Hakyll/Core/Provider/Metadata.hs @@ -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 -- cgit v1.2.3