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

move stripbrackets to Utils

Browse Source
This commit is contained in:
Simon Michael 2012-12-04 00:03:42 +00:00
parent e3d5fdde66
commit 157c85a915
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Utils.hs
View File

@ -58,6 +58,8 @@ strip = lstrip . rstrip
lstrip = dropWhile (`elem` " \t") :: String -> String lstrip = dropWhile (`elem` " \t") :: String -> String
rstrip = reverse . lstrip . reverse rstrip = reverse . lstrip . reverse
stripbrackets = dropWhile (`elem` "([") . reverse . dropWhile (`elem` "])") . reverse
elideLeft width s = elideLeft width s =
if length s > width then ".." ++ reverse (take (width - 2) $ reverse s) else s if length s > width then ".." ++ reverse (take (width - 2) $ reverse s) else s
@ -445,4 +447,3 @@ expandPath curdir p = (if isRelative p then (curdir </>) else id) `liftM` expand
firstJust ms = case dropWhile (==Nothing) ms of firstJust ms = case dropWhile (==Nothing) ms of
[] -> Nothing [] -> Nothing
(md:_) -> md (md:_) -> md

1
hledger/Hledger/Cli/Add.hs
View File

@ -174,7 +174,6 @@ getPostings st enteredps = do
postingtype ('[':_) = BalancedVirtualPosting postingtype ('[':_) = BalancedVirtualPosting
postingtype ('(':_) = VirtualPosting postingtype ('(':_) = VirtualPosting
postingtype _ = RegularPosting postingtype _ = RegularPosting
stripbrackets = dropWhile (`elem` "([") . reverse . dropWhile (`elem` "])") . reverse
validateamount = Just $ \s -> (null s && not (null enteredrealps)) validateamount = Just $ \s -> (null s && not (null enteredrealps))
|| isRight (runParser (amountp >> many spacenonewline >> eof) ctx "" s) || isRight (runParser (amountp >> many spacenonewline >> eof) ctx "" s)