Commit c4349170 authored by ijones's avatar ijones
Browse files

one small compile error

parent ce798037
......@@ -171,7 +171,7 @@ parseDesc = (many1 (parseReqFields >> parseDescHelp)) >> getState
<|> try (parseField "Includes" True parseFilePath
>>= updateState . (\l pkgD -> pkgD{includes=l}))
<|> try (parseField "HS-Source-Dir" True parseFilePath
>>= updateState . (\l pkgD -> pkgD{hsSourceDir=l}))
>>= updateState . (\l pkgD -> pkgD{hsSourceDir=head l}))
-- Parsing remains for:
--
......@@ -211,6 +211,7 @@ anyOf :: [GenParser tok st a] -> GenParser tok st a
anyOf [a] = a
anyOf (h:t) = foldl ((<|>) . try) (try h) t
-- |FIX: must learn to escape whitespace
parseFilePath :: GenParser Char st [FilePath]
parseFilePath
......
Markdown is supported
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