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
fc78975f
Commit
fc78975f
authored
Nov 10, 2009
by
Duncan Coutts
Browse files
Build with ghc-6.6
parent
8a3877ae
Changes
3
Hide whitespace changes
Inline
Side-by-side
cabal-install/Distribution/Client/Init.hs
View file @
fc78975f
{-# LANGUAGE CPP #-}
-----------------------------------------------------------------------------
-- |
-- Module : Distribution.Client.Init
...
...
@@ -34,7 +35,11 @@ import Data.Maybe
import
Data.Traversable
(
traverse
)
import
Control.Monad
(
(
>=>
),
when
)
(
when
)
#
if
MIN_VERSION_base
(
3
,
0
,
0
)
import
Control.Monad
(
(
>=>
)
)
#
endif
import
Text.PrettyPrint.HughesPJ
hiding
(
mode
,
cat
)
...
...
@@ -558,3 +563,9 @@ generateWarnings flags = do
message
::
InitFlags
->
String
->
IO
()
message
(
InitFlags
{
quiet
=
Flag
True
})
_
=
return
()
message
_
s
=
putStrLn
s
#
if
MIN_VERSION_base
(
3
,
0
,
0
)
#
else
(
>=>
)
::
Monad
m
=>
(
a
->
m
b
)
->
(
b
->
m
c
)
->
(
a
->
m
c
)
f
>=>
g
=
\
x
->
f
x
>>=
g
#
endif
cabal-install/Distribution/Client/Init/Heuristics.hs
View file @
fc78975f
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -cpp #-}
{-# OPTIONS_NHC98 -cpp #-}
{-# OPTIONS_JHC -fcpp #-}
-----------------------------------------------------------------------------
-- |
-- Module : Distribution.Client.Init.Heuristics
...
...
@@ -28,6 +25,8 @@ import Distribution.Client.PackageIndex
(
allPackagesByName
)
import
qualified
Distribution.PackageDescription
as
PD
(
category
,
packageDescription
)
import
Distribution.Simple.Utils
(
intercalate
)
import
Distribution.Client.Types
(
packageDescription
,
AvailablePackageDb
(
..
)
)
import
Control.Monad
(
liftM
)
...
...
@@ -35,7 +34,6 @@ import Data.Char ( isUpper, isLower, isSpace )
#
if
MIN_VERSION_base
(
3
,
0
,
3
)
import
Data.Either
(
partitionEithers
)
#
endif
import
Data.List
(
intercalate
)
import
Data.Maybe
(
catMaybes
)
import
Data.Monoid
(
mempty
,
mappend
)
import
qualified
Data.Set
as
Set
(
fromList
,
toList
)
...
...
cabal-install/Distribution/Client/Init/Types.hs
View file @
fc78975f
{-# LANGUAGE CPP #-}
-----------------------------------------------------------------------------
-- |
-- Module : Distribution.Client.Init.Types
...
...
@@ -154,3 +155,13 @@ data Stability
instance
Text
Stability
where
disp
=
Disp
.
text
.
show
parse
=
Parse
.
choice
$
map
(
fmap
read
.
Parse
.
string
.
show
)
[
Stable
..
]
#
if
MIN_VERSION_base
(
3
,
0
,
0
)
#
else
-- Compat instance for ghc-6.6 era
instance
Monoid
a
=>
Monoid
(
Maybe
a
)
where
mempty
=
Nothing
Nothing
`
mappend
`
m
=
m
m
`
mappend
`
Nothing
=
m
Just
m1
`
mappend
`
Just
m2
=
Just
(
m1
`
mappend
`
m2
)
#
endif
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