@@ -23,7 +23,6 @@ import Prelude hiding (userError)
2323
2424import Data.Maybe
2525import Data.Char (isSpace)
26−import Data.String (fromString)
2726import Data.List (stripPrefix, isSuffixOf, (\\), nubBy)
2827import Data.List.Split (splitOn)
2928import Data.List.NonEmpty (NonEmpty(..))
@@ -32,6 +31,8 @@ import Data.Function (on)
3231import Safe (headMay)
3332import Data.Aeson.BetterErrors
3433import qualified Data.Text as T
34+import qualified Data.Text.Lazy as TL
35+import qualified Data.Text.Lazy.Encoding as TL
3536
3637#if __GLASGOW_HASKELL__ < 710
3738import Control.Applicative
@@ -245,7 +246,7 @@ data DependencyStatus
245246getResolvedDependencies :: [PackageName] -> PrepareM [(PackageName, Version)]
246247getResolvedDependencies declaredDeps = do
247248 bower <- findBowerExecutable
248− depsBS <- fromString <$> readProcess' bower ["list", "--json", "--offline"] ""
249+ depsBS <- packUtf8 <$> readProcess' bower ["list", "--json", "--offline"] ""
249250
250251 -- Check for undeclared dependencies
251252 toplevels <- catchJSON (parse asToplevelDependencies depsBS)
@@ -255,6 +256,7 @@ getResolvedDependencies declaredDeps = do
255256 handleDeps deps
256257
257258 where
259+ packUtf8 = TL.encodeUtf8 . TL.pack
258260 catchJSON = flip catchLeft (internalError . JSONError FromBowerList)
259261
260262findBowerExecutable :: PrepareM String