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

fix that silly pattern warning

Browse Source
This commit is contained in:
Simon Michael 2011-06-13 21:16:10 +00:00
parent 0c216cb2cd
commit 94208e44d5
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Data/Matching.hs
View File

@ -60,8 +60,7 @@ data QueryOpt = QueryOptInAcct AccountName -- ^ show an account register focuss
inAccount :: [QueryOpt] -> Maybe AccountName inAccount :: [QueryOpt] -> Maybe AccountName
inAccount [] = Nothing inAccount [] = Nothing
inAccount (o:os) = case o of QueryOptInAcct a -> Just a; _ -> inAccount os inAccount (QueryOptInAcct a:_) = Just a
-- inAccount = msum . map f where f o = case o of (QueryOptInAcct a) -> Just a; _ -> Nothing
-- | Convert a query expression containing zero or more space-separated -- | Convert a query expression containing zero or more space-separated
-- terms to a matcher and zero or more query options. A query term is either: -- terms to a matcher and zero or more query options. A query term is either: