@@ -33,12 +33,13 @@ import Prelude.Compat
3333
3434import Control.Monad.Error.Class
3535import Control.Monad.IO.Class
36+import Data.Aeson (decodeStrict)
3637import Data.List (nub)
3738import Data.Maybe (mapMaybe)
3839import Data.Monoid
3940import Data.Text (Text)
4041import qualified Data.Text as T
41−import qualified Data.Text.IO as T
42+import qualified Data.ByteString as BS
4243import Language.PureScript.Ide.Error (PscIdeError (..))
4344import Language.PureScript.Ide.Types
4445import Language.PureScript.Ide.Util
@@ -49,7 +50,7 @@ import qualified Language.PureScript.Externs as PE
4950readExternFile :: (MonadIO m, MonadError PscIdeError m) =>
5051 FilePath -> m PE.ExternsFile
5152readExternFile fp = do
52− parseResult <- liftIO (decodeT <$> T.readFile fp)
53+ parseResult <- liftIO (decodeStrict <$> BS.readFile fp)
5354 case parseResult of
5455 Nothing -> throwError . GeneralError $ "Parsing the extern at: " ++ fp ++ " failed"
5556 Just externs -> pure externs