Commit 4651d0e6 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Formatting.

parent 5e6920ee
...@@ -493,23 +493,23 @@ parsePackageEnvironment initial str = do ...@@ -493,23 +493,23 @@ parsePackageEnvironment initial str = do
(ParseUtils.Section line "install-dirs" name fs) (ParseUtils.Section line "install-dirs" name fs)
| name == "" = do d' <- parseFields installDirsFields d fs | name == "" = do d' <- parseFields installDirsFields d fs
return (h, d',p,a) return (h, d',p,a)
| otherwise = | otherwise =
syntaxError line $ syntaxError line $
"Named 'install-dirs' section: '" ++ name "Named 'install-dirs' section: '" ++ name
++ "'. Note that named 'install-dirs' sections are not allowed in the '" ++ "'. Note that named 'install-dirs' sections are not allowed in the '"
++ userPackageEnvironmentFile ++ "' file." ++ userPackageEnvironmentFile ++ "' file."
parseSections accum@(h, d,p,a) parseSections accum@(h, d,p,a)
(ParseUtils.Section _ "program-locations" name fs) (ParseUtils.Section _ "program-locations" name fs)
| name == "" = do p' <- parseFields withProgramsFields p fs | name == "" = do p' <- parseFields withProgramsFields p fs
return (h, d, p', a) return (h, d, p', a)
| otherwise = do | otherwise = do
warning "The 'program-locations' section should be unnamed" warning "The 'program-locations' section should be unnamed"
return accum return accum
parseSections accum@(h, d, p, a) parseSections accum@(h, d, p, a)
(ParseUtils.Section _ "program-default-options" name fs) (ParseUtils.Section _ "program-default-options" name fs)
| name == "" = do a' <- parseFields withProgramOptionsFields a fs | name == "" = do a' <- parseFields withProgramOptionsFields a fs
return (h, d, p, a') return (h, d, p, a')
| otherwise = do | otherwise = do
warning "The 'program-default-options' section should be unnamed" warning "The 'program-default-options' section should be unnamed"
return accum return accum
parseSections accum f = do parseSections accum f = do
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment