ui: fix a vty version bound typo & possibly build failures (#494)
CPP intended to use old code for vty < 5.15 was always using the new code.
This commit is contained in:
		
							parent
							
								
									332c23865e
								
							
						
					
					
						commit
						a1c0835445
					
				| @ -15,7 +15,7 @@ import Control.Concurrent (threadDelay) | ||||
| import Control.Concurrent.Async | ||||
| import Control.Monad | ||||
| -- import Control.Monad.IO.Class (liftIO) | ||||
| #if !MIN_VERSION_vty(0,15,0) | ||||
| #if !MIN_VERSION_vty(5,15,0) | ||||
| import Data.Default (def) | ||||
| #endif | ||||
| -- import Data.Monoid              -- | ||||
| @ -228,7 +228,7 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}} j = do | ||||
|             ) | ||||
| 
 | ||||
|         -- and start the app. Must be inside the withManager block | ||||
| #if MIN_VERSION_vty(0,15,0) | ||||
| #if MIN_VERSION_vty(5,15,0) | ||||
|         let myVty = mkVty mempty | ||||
| #else | ||||
|         let myVty = mkVty def | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user