ui: Remove unnecessary CPP when dropping support for GHC 8.4.
This commit is contained in:
		
							parent
							
								
									55308e1ca8
								
							
						
					
					
						commit
						c87290e5f5
					
				| @ -3,7 +3,6 @@ hledger-ui - a hledger add-on providing a curses-style interface. | ||||
| Copyright (c) 2007-2015 Simon Michael <simon@joyful.com> | ||||
| Released under GPL version 3 or later. | ||||
| -} | ||||
| {-# LANGUAGE CPP #-} | ||||
| {-# LANGUAGE LambdaCase #-} | ||||
| {-# LANGUAGE OverloadedStrings #-} | ||||
| {-# LANGUAGE MultiParamTypeClasses #-} | ||||
| @ -220,12 +219,7 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{inputopts_=_iopts,reportspec_=rsp | ||||
|           d | ||||
|           -- predicate: ignore changes not involving our files | ||||
|           (\fev -> case fev of | ||||
| #if MIN_VERSION_fsnotify(0,3,0) | ||||
|             Modified f _ False | ||||
| #else | ||||
|             Modified f _ | ||||
| #endif | ||||
|                                -> f `elem` files | ||||
|             Modified f _ False -> f `elem` files | ||||
|             -- Added    f _ -> f `elem` files | ||||
|             -- Removed  f _ -> f `elem` files | ||||
|             -- 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 | ||||
|         let mkvty = mkVty mempty | ||||
| #if MIN_VERSION_brick(0,47,0) | ||||
|         vty0 <- mkvty | ||||
|         void $ customMain vty0 mkvty (Just eventChan) brickapp ui | ||||
| #else | ||||
|         void $ customMain mkvty (Just eventChan) brickapp ui | ||||
| #endif | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user