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

cln: Remove some explicit Text packing.

Browse Source
This commit is contained in:
Stephen Morgan 2022-01-04 12:02:07 +01:00 committed by Simon Michael
parent 2a51b6e9a4
commit 43b7e849c7
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger-lib/Hledger/Data/Dates.hs
View File

@ -967,18 +967,14 @@ reportingintervalp = choice'
(toPermutation $ nth <* skipNonNewlineSpaces) (toPermutation $ nth <* skipNonNewlineSpaces)
-- Parse any of several variants of a basic interval, eg "daily", "every day", "every N days". -- Parse any of several variants of a basic interval, eg "daily", "every day", "every N days".
tryinterval :: String -> String -> (Int -> Interval) -> TextParser m Interval tryinterval :: Text -> Text -> (Int -> Interval) -> TextParser m Interval
tryinterval singular compact intcons = intcons <$> choice' tryinterval singular compact intcons = intcons <$> choice'
[ 1 <$ string' compact' [ 1 <$ string' compact
, string' "every" *> skipNonNewlineSpaces *> choice , string' "every" *> skipNonNewlineSpaces *> choice
[ 1 <$ string' singular' [ 1 <$ string' singular
, decimal <* skipNonNewlineSpaces <* string' plural' , decimal <* skipNonNewlineSpaces <* string' (singular <> "s")
] ]
] ]
where
compact' = T.pack compact
singular' = T.pack singular
plural' = T.pack $ singular ++ "s"
periodexprdatespanp :: Day -> TextParser m DateSpan periodexprdatespanp :: Day -> TextParser m DateSpan
periodexprdatespanp rdate = choice $ map try [ periodexprdatespanp rdate = choice $ map try [