slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

lib: remove redundant check in accountnamep

Browse Source
This commit is contained in:
Alex Chen 2018-05-24 21:19:17 -06:00 committed by Simon Michael
parent 43aa3d479e
commit d79e707485
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger-lib/Hledger/Read/Common.hs
View File

@ -461,14 +461,7 @@ accountnamep :: TextParser m AccountName
accountnamep = do accountnamep = do
firstPart <- part firstPart <- part
otherParts <- many $ try $ singleSpace *> part otherParts <- many $ try $ singleSpace *> part
let account = T.unwords $ firstPart : otherParts pure $ T.unwords $ firstPart : otherParts
let roundTripAccount =
accountNameFromComponents $ accountNameComponents account
when (account /= roundTripAccount) $ fail $
"account name seems ill-formed: " ++ T.unpack account
pure account
where where
part = takeWhile1P Nothing (not . isSpace) part = takeWhile1P Nothing (not . isSpace)
singleSpace = void spacenonewline *> notFollowedBy spacenonewline singleSpace = void spacenonewline *> notFollowedBy spacenonewline