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
4651d0e6
Commit
4651d0e6
authored
Mar 01, 2014
by
Mikhail Glushenkov
Browse files
Formatting.
parent
5e6920ee
Changes
1
Hide whitespace changes
Inline
Side-by-side
cabal-install/Distribution/Client/Sandbox/PackageEnvironment.hs
View file @
4651d0e6
...
...
@@ -493,23 +493,23 @@ parsePackageEnvironment initial str = do
(
ParseUtils
.
Section
line
"install-dirs"
name
fs
)
|
name
==
""
=
do
d'
<-
parseFields
installDirsFields
d
fs
return
(
h
,
d'
,
p
,
a
)
|
otherwise
=
|
otherwise
=
syntaxError
line
$
"Named 'install-dirs' section: '"
++
name
++
"'. Note that named 'install-dirs' sections are not allowed in the '"
++
userPackageEnvironmentFile
++
"' file."
parseSections
accum
@
(
h
,
d
,
p
,
a
)
(
ParseUtils
.
Section
_
"program-locations"
name
fs
)
|
name
==
""
=
do
p'
<-
parseFields
withProgramsFields
p
fs
return
(
h
,
d
,
p'
,
a
)
|
otherwise
=
do
|
name
==
""
=
do
p'
<-
parseFields
withProgramsFields
p
fs
return
(
h
,
d
,
p'
,
a
)
|
otherwise
=
do
warning
"The 'program-locations' section should be unnamed"
return
accum
parseSections
accum
@
(
h
,
d
,
p
,
a
)
(
ParseUtils
.
Section
_
"program-default-options"
name
fs
)
|
name
==
""
=
do
a'
<-
parseFields
withProgramOptionsFields
a
fs
return
(
h
,
d
,
p
,
a'
)
|
otherwise
=
do
|
name
==
""
=
do
a'
<-
parseFields
withProgramOptionsFields
a
fs
return
(
h
,
d
,
p
,
a'
)
|
otherwise
=
do
warning
"The 'program-default-options' section should be unnamed"
return
accum
parseSections
accum
f
=
do
...
...
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