fix warnings/errors found by make stacktest
This commit is contained in:
		
							parent
							
								
									ddb8e4b6f0
								
							
						
					
					
						commit
						5de51c9bad
					
				| @ -65,7 +65,6 @@ import qualified Hledger.Read.TimeclockReader as TimeclockReader | |||||||
| import qualified Hledger.Read.CsvReader       as CsvReader | import qualified Hledger.Read.CsvReader       as CsvReader | ||||||
| import Hledger.Utils | import Hledger.Utils | ||||||
| import Prelude hiding (getContents, writeFile) | import Prelude hiding (getContents, writeFile) | ||||||
| import Hledger.Utils.UTF8IOCompat (writeFile) |  | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
| journalEnvVar           = "LEDGER_FILE" | journalEnvVar           = "LEDGER_FILE" | ||||||
|  | |||||||
| @ -31,7 +31,6 @@ import System.Console.ANSI | |||||||
| 
 | 
 | ||||||
| import Hledger | import Hledger | ||||||
| import Hledger.Cli hiding (progname,prognameandversion) | import Hledger.Cli hiding (progname,prognameandversion) | ||||||
| import Hledger.Cli.Commands.Add (add) |  | ||||||
| import Hledger.UI.UIOptions | import Hledger.UI.UIOptions | ||||||
| -- import Hledger.UI.Theme | -- import Hledger.UI.Theme | ||||||
| import Hledger.UI.UITypes | import Hledger.UI.UITypes | ||||||
| @ -386,4 +385,4 @@ isBlankElement mel = ((rsItemDate . snd) <$> mel) == Just "" | |||||||
| 
 | 
 | ||||||
| rsCenterAndContinue ui = do | rsCenterAndContinue ui = do | ||||||
|   scrollSelectionToMiddle $ rsList $ aScreen ui |   scrollSelectionToMiddle $ rsList $ aScreen ui | ||||||
|   continue ui |   continue ui | ||||||
|  | |||||||
| @ -1,16 +1,3 @@ | |||||||
| {- #!/usr/bin/env stack -} |  | ||||||
| {- stack runghc --  |  | ||||||
|     --ghc-arg='-main-is _main'  |  | ||||||
|     --verbosity info |  | ||||||
|     --package hledger-lib |  | ||||||
|     --package hledger |  | ||||||
|     --package here |  | ||||||
| -} |  | ||||||
| -- We could probably still allow running these command modules as scripts, if useful. |  | ||||||
| --import Hledger.Cli.Utils (withJournalDo) |  | ||||||
| --main :: IO () |  | ||||||
| --main = getHledgerCliOpts checkdatesmode >>= flip withJournalDo checkdates |  | ||||||
| 
 |  | ||||||
| {-# LANGUAGE QuasiQuotes #-} | {-# LANGUAGE QuasiQuotes #-} | ||||||
| 
 | 
 | ||||||
| module Hledger.Cli.Commands.Checkdates ( | module Hledger.Cli.Commands.Checkdates ( | ||||||
|  | |||||||
| @ -51,7 +51,6 @@ import System.FilePath | |||||||
| import System.Process | import System.Process | ||||||
| import Text.Printf | import Text.Printf | ||||||
| 
 | 
 | ||||||
| import Hledger (ensureJournalFileExists, getCurrentDay, period_, interval_, queryFromOpts) |  | ||||||
| import Hledger.Cli | import Hledger.Cli | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -9,10 +9,6 @@ import System.Environment (getArgs, withArgs) | |||||||
| import System.TimeIt      (timeItT) | import System.TimeIt      (timeItT) | ||||||
| import Text.Printf | import Text.Printf | ||||||
| import Hledger.Cli | import Hledger.Cli | ||||||
| import Hledger.Cli.Commands.Balance |  | ||||||
| import Hledger.Cli.Commands.Print |  | ||||||
| import Hledger.Cli.Commands.Register |  | ||||||
| import Hledger.Cli.Commands.Stats |  | ||||||
| 
 | 
 | ||||||
| -- sample journal file to use for benchmarks | -- sample journal file to use for benchmarks | ||||||
| inputfile = "bench/10000x1000x10.journal" | inputfile = "bench/10000x1000x10.journal" | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user