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

fix ghc pattern match warning (#323)

Browse Source
This commit is contained in:
Simon Michael 2016-05-17 18:42:37 -07:00
parent ec507955e1
commit 4dd7dba771
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger/Hledger/Cli/Utils.hs
View File

@ -75,10 +75,10 @@ withJournalDo opts cmd = do
-- | Apply the pivot transformation on a journal, if option is present. -- | Apply the pivot transformation on a journal, if option is present.
pivotByOpts :: CliOpts -> Journal -> Journal pivotByOpts :: CliOpts -> Journal -> Journal
pivotByOpts opts pivotByOpts opts =
| Just tag <- maybeTag = pivot tag case maybestringopt "pivot" . rawopts_ $ opts of
| Nothing <- maybeTag = id Just tag -> pivot tag
where maybeTag = maybestringopt "pivot" . rawopts_ $ opts Nothing -> id
-- | Apply the pivot transformation by given tag on a journal. -- | Apply the pivot transformation by given tag on a journal.
pivot :: String -> Journal -> Journal pivot :: String -> Journal -> Journal