on master help sign in
Move someSpace
commit09b9c07a346bb9843ba5d76a9183c19a6370e980 authorJason Felice <jason.m.felice@gmail.com> dateSun 29 Oct 2017, 14:04 (9 years ago) parentb188fe1
1 file changed+2−2
src/Idris/Package/Parser.hs+2−2
src/Idris/Package/Parser.hs+2−2
@@ -127,7 +127,7 @@ textUntilEol :: MonadicParsing m => m String
127127textUntilEol = many (P.satisfy (not . isEol)) <* eol <* P.someSpace
128128
129129clause :: String -> PParser a -> (PkgDesc -> a -> PkgDesc) -> PParser ()
130−clause name p f = do value <- reserved name *> lchar '=' *> p
130+clause name p f = do value <- reserved name *> lchar '=' *> p <* P.someSpace
131131 modify $ \st -> f st value
132132
133133commaSep :: MonadicParsing m => m a -> m [a]
@@ -153,6 +153,6 @@ pClause = clause "executable" filename (\st v -> st { execout = Just v })
153153 <|> clause "homepage" textUntilEol (\st v -> st { pkghomepage = Just v })
154154 <|> clause "sourceloc" textUntilEol (\st v -> st { pkgsourceloc = Just v })
155155 <|> clause "bugtracker" textUntilEol (\st v -> st { pkgbugtracker = Just v })
156− <|> clause "brief" (P.stringLiteral <* P.someSpace) (\st v -> st { pkgbrief = Just v })
156+ <|> clause "brief" P.stringLiteral (\st v -> st { pkgbrief = Just v })
157157 <|> clause "author" textUntilEol (\st v -> st { pkgauthor = Just v })
158158 <|> clause "maintainer" textUntilEol (\st v -> st { pkgmaintainer = Just v })