Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
Packages
Cabal
Commits
13a46b2e
Commit
13a46b2e
authored
Oct 09, 2016
by
Edward Z. Yang
Browse files
Fix -Werror failure.
Signed-off-by:
Edward Z. Yang
<
ezyang@cs.stanford.edu
>
parent
af422f76
Changes
1
Show whitespace changes
Inline
Side-by-side
cabal-install/Distribution/Solver/Modular/Solver.hs
View file @
13a46b2e
...
@@ -14,7 +14,6 @@ import Data.Set as S
...
@@ -14,7 +14,6 @@ import Data.Set as S
import
Distribution.Version
import
Distribution.Version
import
Distribution.Compiler
(
CompilerInfo
)
import
Distribution.Compiler
(
CompilerInfo
)
import
Distribution.Text
(
display
)
import
Distribution.Solver.Types.PackagePath
import
Distribution.Solver.Types.PackagePath
import
Distribution.Solver.Types.PackagePreferences
import
Distribution.Solver.Types.PackagePreferences
...
@@ -45,6 +44,7 @@ import Distribution.Simple.Setup (BooleanFlag(..))
...
@@ -45,6 +44,7 @@ import Distribution.Simple.Setup (BooleanFlag(..))
import
Distribution.Solver.Modular.Flag
import
Distribution.Solver.Modular.Flag
import
qualified
Distribution.Solver.Modular.ConflictSet
as
CS
import
qualified
Distribution.Solver.Modular.ConflictSet
as
CS
import
qualified
Distribution.Solver.Modular.WeightedPSQ
as
W
import
qualified
Distribution.Solver.Modular.WeightedPSQ
as
W
import
qualified
Distribution.Text
as
T
import
Debug.Trace.Tree
(
gtraceJson
)
import
Debug.Trace.Tree
(
gtraceJson
)
import
Debug.Trace.Tree.Simple
import
Debug.Trace.Tree.Simple
...
@@ -202,7 +202,7 @@ instance GSimpleTree (Tree d QGoalReason) where
...
@@ -202,7 +202,7 @@ instance GSimpleTree (Tree d QGoalReason) where
-- Show package choice
-- Show package choice
goP
::
QPN
->
POption
->
Tree
d
QGoalReason
->
(
String
,
SimpleTree
)
goP
::
QPN
->
POption
->
Tree
d
QGoalReason
->
(
String
,
SimpleTree
)
goP
_
(
POption
(
I
ver
_loc
)
Nothing
)
subtree
=
(
display
ver
,
go
subtree
)
goP
_
(
POption
(
I
ver
_loc
)
Nothing
)
subtree
=
(
T
.
display
ver
,
go
subtree
)
goP
(
Q
_
pn
)
(
POption
_
(
Just
pp
))
subtree
=
(
showQPN
(
Q
pp
pn
),
go
subtree
)
goP
(
Q
_
pn
)
(
POption
_
(
Just
pp
))
subtree
=
(
showQPN
(
Q
pp
pn
),
go
subtree
)
-- Show flag or stanza choice
-- Show flag or stanza choice
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment