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

ui: Remove unnecessary CPP when dropping support for GHC 8.4.

Browse Source
This commit is contained in:
Stephen Morgan 2021-05-09 10:12:29 +10:00 committed by Simon Michael
parent 55308e1ca8
commit c87290e5f5
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,6 @@ 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 CPP #-}
{-# LANGUAGE LambdaCase #-} {-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE MultiParamTypeClasses #-}
@ -220,12 +219,7 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{inputopts_=_iopts,reportspec_=rsp
d d
-- predicate: ignore changes not involving our files -- predicate: ignore changes not involving our files
(\fev -> case fev of (\fev -> case fev of
#if MIN_VERSION_fsnotify(0,3,0) Modified f _ False -> f `elem` files
Modified f _ False
#else
Modified f _
#endif
-> f `elem` files
-- Added f _ -> f `elem` files -- Added f _ -> f `elem` files
-- Removed f _ -> f `elem` files -- Removed f _ -> f `elem` files
-- we don't handle adding/removing journal files right now -- we don't handle adding/removing journal files right now
@ -242,9 +236,5 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{inputopts_=_iopts,reportspec_=rsp
-- and start the app. Must be inside the withManager block -- and start the app. Must be inside the withManager block
let mkvty = mkVty mempty let mkvty = mkVty mempty
#if MIN_VERSION_brick(0,47,0)
vty0 <- mkvty vty0 <- mkvty
void $ customMain vty0 mkvty (Just eventChan) brickapp ui void $ customMain vty0 mkvty (Just eventChan) brickapp ui
#else
void $ customMain mkvty (Just eventChan) brickapp ui
#endif