Skip to content

Commit c6dac65

Browse files
committed
cabal-solver: fix parseCabalOutput on Windows
1 parent cebe10e commit c6dac65

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/Stack/Solver.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ import Data.List ( (\\), isSuffixOf, intercalate
4040
import Data.List.Extra (groupSortOn)
4141
import Data.Map (Map)
4242
import qualified Data.Map as Map
43-
import Data.Maybe (catMaybes, isNothing, mapMaybe)
43+
import Data.Maybe (catMaybes, isNothing, mapMaybe, fromMaybe)
4444
import Data.Monoid
4545
import Data.Set (Set)
4646
import qualified Data.Set as Set
@@ -170,6 +170,7 @@ cabalSolver menv cabalfps constraintType
170170
parseCabalOutput bs = do
171171
let ls = drop 1
172172
$ dropWhile (not . T.isPrefixOf "In order, ")
173+
$ map stripCR
173174
$ T.lines
174175
$ decodeUtf8 bs
175176
(errs, pairs) = partitionEithers $ map parseCabalOutputLine ls
@@ -179,6 +180,7 @@ cabalSolver menv cabalfps constraintType
179180
\not be parsed: \n"
180181
++ (T.unpack (T.intercalate "\n" errs))
181182

183+
stripCR t = fromMaybe t (T.stripSuffix "\r" t)
182184

183185
toConstraintArgs userFlagMap =
184186
[formatFlagConstraint package flag enabled

0 commit comments

Comments
 (0)