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

cln: hlint: Clean up lambda related warnings.

Browse Source
This commit is contained in:
Stephen Morgan 2021-08-27 20:58:02 +10:00 committed by Simon Michael
parent 8bf7c95697
commit 761e00caa4
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.hlint.yaml
View File

@ -18,8 +18,6 @@
- ignore: {name: "Use fewer imports"} - ignore: {name: "Use fewer imports"}
- ignore: {name: "Use tuple-section"} - ignore: {name: "Use tuple-section"}
- ignore: {name: "Use section"} - ignore: {name: "Use section"}
- ignore: {name: "Avoid lambda using `infix`"}
- ignore: {name: "Use lambda-case"}
# Specify additional command line arguments # Specify additional command line arguments

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

@ -1226,7 +1226,7 @@ multilinecommentp = startComment *> anyLine `skipManyTill` endComment
endComment = eof <|> string "end comment" *> trailingSpaces endComment = eof <|> string "end comment" *> trailingSpaces
trailingSpaces = skipNonNewlineSpaces <* newline trailingSpaces = skipNonNewlineSpaces <* newline
anyLine = void $ takeWhileP Nothing (\c -> c /= '\n') *> newline anyLine = void $ takeWhileP Nothing (/='\n') *> newline
{-# INLINABLE multilinecommentp #-} {-# INLINABLE multilinecommentp #-}

3
hledger-ui/Hledger/UI/Main.hs
View File

@ -3,6 +3,7 @@ hledger-ui - a hledger add-on providing a curses-style interface.
Copyright (c) 2007-2015 Simon Michael <simon@joyful.com> Copyright (c) 2007-2015 Simon Michael <simon@joyful.com>
Released under GPL version 3 or later. Released under GPL version 3 or later.
-} -}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
@ -219,7 +220,7 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{inputopts_=_iopts,reportspec_=rsp
mgr mgr
d d
-- predicate: ignore changes not involving our files -- predicate: ignore changes not involving our files
(\fev -> case fev of (\case
Modified f _ False -> f `elem` files Modified f _ False -> f `elem` files
-- Added f _ -> f `elem` files -- Added f _ -> f `elem` files
-- Removed f _ -> f `elem` files -- Removed f _ -> f `elem` files