fix warnings/errors found by make stacktest

This commit is contained in:
Simon Michael 2017-09-30 13:00:22 -10:00
parent ddb8e4b6f0
commit 5de51c9bad
5 changed files with 1 additions and 21 deletions

View File

@ -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"

View 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

View File

@ -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 (

View File

@ -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

View File

@ -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"