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

cln: hlint: Fix record patterns warnings.

Browse Source
This commit is contained in:
Stephen Morgan 2021-08-16 16:49:50 +10:00 committed by Simon Michael
parent 1c211f8ab8
commit 69502c44fe
4 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.hlint.yaml
View File

@ -26,7 +26,6 @@
- ignore: {name: "Use fmap"} - ignore: {name: "Use fmap"}
- ignore: {name: "Use curry"} - ignore: {name: "Use curry"}
- ignore: {name: "Redundant uncurry"} - ignore: {name: "Redundant uncurry"}
- ignore: {name: "Use record patterns"}
- ignore: {name: "Redundant fromIntegral"} - ignore: {name: "Redundant fromIntegral"}
- ignore: {name: "Use <&>"} - ignore: {name: "Use <&>"}
- ignore: {name: "Use sortOn"} - ignore: {name: "Use sortOn"}

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

@ -1040,7 +1040,7 @@ fromRawNumber
-> Maybe Integer -> Maybe Integer
-> Either String -> Either String
(Quantity, Word8, Maybe Char, Maybe DigitGroupStyle) (Quantity, Word8, Maybe Char, Maybe DigitGroupStyle)
fromRawNumber (WithSeparators _ _ _) (Just _) = fromRawNumber (WithSeparators{}) (Just _) =
Left "invalid number: digit separators and exponents may not be used together" Left "invalid number: digit separators and exponents may not be used together"
fromRawNumber raw mExp = do fromRawNumber raw mExp = do
(quantity, precision) <- toQuantity (fromMaybe 0 mExp) (digitGroup raw) (decimalGroup raw) (quantity, precision) <- toQuantity (fromMaybe 0 mExp) (digitGroup raw) (decimalGroup raw)

8
hledger-ui/Hledger/UI/AccountsScreen.hs
View File

@ -250,8 +250,8 @@ asHandle ui0@UIState{
VtyEvent ev -> do ed' <- handleEditorEvent ev ed VtyEvent ev -> do ed' <- handleEditorEvent ev ed
continue $ ui{aMode=Minibuffer ed'} continue $ ui{aMode=Minibuffer ed'}
AppEvent _ -> continue ui AppEvent _ -> continue ui
MouseDown _ _ _ _ -> continue ui MouseDown{} -> continue ui
MouseUp _ _ _ -> continue ui MouseUp{} -> continue ui
Help -> Help ->
case ev of case ev of
@ -356,8 +356,8 @@ asHandle ui0@UIState{
} }
AppEvent _ -> continue ui AppEvent _ -> continue ui
MouseDown _ _ _ _ -> continue ui MouseDown{} -> continue ui
MouseUp _ _ _ -> continue ui MouseUp{} -> continue ui
where where
journalspan = journalDateSpan False j journalspan = journalDateSpan False j

8
hledger-ui/Hledger/UI/RegisterScreen.hs
View File

@ -296,8 +296,8 @@ rsHandle ui@UIState{
VtyEvent ev -> do ed' <- handleEditorEvent ev ed VtyEvent ev -> do ed' <- handleEditorEvent ev ed
continue $ ui{aMode=Minibuffer ed'} continue $ ui{aMode=Minibuffer ed'}
AppEvent _ -> continue ui AppEvent _ -> continue ui
MouseDown _ _ _ _ -> continue ui MouseDown{} -> continue ui
MouseUp _ _ _ -> continue ui MouseUp{} -> continue ui
Help -> Help ->
case ev of case ev of
@ -384,8 +384,8 @@ rsHandle ui@UIState{
continue ui{aScreen=s{rsList=newitems}} continue ui{aScreen=s{rsList=newitems}}
AppEvent _ -> continue ui AppEvent _ -> continue ui
MouseDown _ _ _ _ -> continue ui MouseDown{} -> continue ui
MouseUp _ _ _ -> continue ui MouseUp{} -> continue ui
rsHandle _ _ = error "event handler called with wrong screen type, should not happen" -- PARTIAL: rsHandle _ _ = error "event handler called with wrong screen type, should not happen" -- PARTIAL: