Skip to content
GitLab
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
73f465b6
Commit
73f465b6
authored
Oct 27, 2013
by
Mikhail Glushenkov
Browse files
Whitespace.
parent
dd8c0946
Changes
1
Hide whitespace changes
Inline
Side-by-side
Cabal/Distribution/ParseUtils.hs
View file @
73f465b6
...
...
@@ -87,7 +87,7 @@ import Data.Char (isSpace, toLower, isAlphaNum, isDigit)
import
Data.Maybe
(
fromMaybe
)
import
Data.Tree
as
Tree
(
Tree
(
..
),
flatten
)
import
qualified
Data.Map
as
Map
import
Control.Monad
(
foldM
,
ap
)
import
Control.Monad
(
foldM
,
ap
)
import
Control.Applicative
(
Applicative
(
..
))
import
System.FilePath
(
normalise
)
import
Data.List
(
sortBy
)
...
...
@@ -119,11 +119,11 @@ data ParseResult a = ParseFailed PError | ParseOk [PWarning] a
instance
Functor
ParseResult
where
fmap
_
(
ParseFailed
err
)
=
ParseFailed
err
fmap
f
(
ParseOk
ws
x
)
=
ParseOk
ws
$
f
x
instance
Applicative
ParseResult
where
pure
=
return
(
<*>
)
=
ap
instance
Monad
ParseResult
where
return
=
ParseOk
[]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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