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