@@ -36,6 +36,7 @@ import Control.Monad.Trans.Except
36import Control.Monad.Writer.Class (MonadWriter(..))
36import Control.Monad.Writer.Class (MonadWriter(..))
38import Data.Aeson (encode, decode)
38import Data.Aeson (encode, decode)
39+import Data.ByteString.Builder (toLazyByteString, stringUtf8)
39import Data.Either (partitionEithers)
40import Data.Either (partitionEithers)
40import Data.Foldable (for_)
41import Data.Foldable (for_)
41import Data.List (foldl', sort)
42import Data.List (foldl', sort)
@@ -252,7 +253,7 @@ make ma@MakeActions{..} ms = do
253 decodeExterns :: Externs -> Maybe ExternsFile
254 decodeExterns :: Externs -> Maybe ExternsFile
254 decodeExterns bs = do
255 decodeExterns bs = do
255− externs <- decode (fromString bs)
256+ externs <- decode (toLazyByteString (stringUtf8 bs))
256 guard $ efVersion externs == showVersion Paths.version
257 guard $ efVersion externs == showVersion Paths.version
257 return externs
258 return externs