Removing trailing white spaces.

This commit is contained in:
Kazu Yamamoto
2010-02-19 23:43:03 +09:00
parent 8ae67a5f66
commit 46e84b59e2
3 changed files with 4 additions and 5 deletions

View File

@@ -205,7 +205,7 @@ nonGhcName = do c <- anyChar -- making this func non-empty
remove :: Parser String
remove = do l1 <- try ghcName <|> return ""
l2 <- nonGhcName
ll <- many (do x <- ghcName
ll <- many (do x <- ghcName
y <- nonGhcName
return $ x ++ y)
return $ concat $ l1 : l2 : ll