@@ -14,6 +14,7 @@ module Hakyll.Core.Provider.Metadata
1414import Control.Arrow (second)
1515import Control.Exception (Exception, throwIO)
1616import Control.Monad (guard)
17+import qualified Data.ByteString as B
1718import qualified Data.ByteString.Char8 as BC
1819import Data.List.Extended (breakWhen)
1920import qualified Data.Map as M
@@ -59,7 +60,8 @@ loadMetadataHeader fp = do
5960--------------------------------------------------------------------------------
6061loadMetadataFile :: FilePath -> IO Metadata
6162loadMetadataFile fp = do
62− errOrMeta <- Yaml.decodeFileEither fp
63+ fileContent <- B.readFile fp
64+ let errOrMeta = Yaml.decodeEither' fileContent
6365 either (fail . show) return errOrMeta
6466
6567