cln: hlint: Fix record patterns warnings.

.hlint.yaml

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

hledger-lib/Hledger/Read/Common.hs

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

hledger-ui/Hledger/UI/AccountsScreen.hs

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

hledger-ui/Hledger/UI/RegisterScreen.hs

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