@@ -36,6 +36,7 @@ import Control.Monad.Trans.Except
3636import Control.Monad.Writer.Class (MonadWriter(..))
3737
3838import Data.Aeson (encode, decode)
39+import Data.ByteString.Builder (toLazyByteString, stringUtf8)
3940import Data.Either (partitionEithers)
4041import Data.Foldable (for_)
4142import Data.List (foldl', sort)
@@ -252,7 +253,7 @@ make ma@MakeActions{..} ms = do
252253
253254 decodeExterns :: Externs -> Maybe ExternsFile
254255 decodeExterns bs = do
255− externs <- decode (fromString bs)
256+ externs <- decode (toLazyByteString (stringUtf8 bs))
256257 guard $ efVersion externs == showVersion Paths.version
257258 return externs
258259