From 5de51c9bade5fb9ada8e7b3e9dcac037fa940004 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 30 Sep 2017 13:00:22 -1000
Subject: [PATCH] fix warnings/errors found by make stacktest

---
 hledger-lib/Hledger/Read.hs                |  1 -
 hledger-ui/Hledger/UI/RegisterScreen.hs    |  3 +--
 hledger/Hledger/Cli/Commands/Checkdates.hs | 13 -------------
 hledger/Hledger/Cli/Main.hs                |  1 -
 hledger/bench/bench.hs                     |  4 ----
 5 files changed, 1 insertion(+), 21 deletions(-)

diff --git a/hledger-lib/Hledger/Read.hs b/hledger-lib/Hledger/Read.hs
index 2de47f4c2..7b597a3c1 100644
--- a/hledger-lib/Hledger/Read.hs
+++ b/hledger-lib/Hledger/Read.hs
@@ -65,7 +65,6 @@ import qualified Hledger.Read.TimeclockReader as TimeclockReader
 import qualified Hledger.Read.CsvReader       as CsvReader
 import Hledger.Utils
 import Prelude hiding (getContents, writeFile)
-import Hledger.Utils.UTF8IOCompat (writeFile)
 
 
 journalEnvVar           = "LEDGER_FILE"
diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs
index 90de6f404..18b523641 100644
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@@ -31,7 +31,6 @@ import System.Console.ANSI
 
 import Hledger
 import Hledger.Cli hiding (progname,prognameandversion)
-import Hledger.Cli.Commands.Add (add)
 import Hledger.UI.UIOptions
 -- import Hledger.UI.Theme
 import Hledger.UI.UITypes
@@ -386,4 +385,4 @@ isBlankElement mel = ((rsItemDate . snd) <$> mel) == Just ""
 
 rsCenterAndContinue ui = do
   scrollSelectionToMiddle $ rsList $ aScreen ui
-  continue ui
\ No newline at end of file
+  continue ui
diff --git a/hledger/Hledger/Cli/Commands/Checkdates.hs b/hledger/Hledger/Cli/Commands/Checkdates.hs
index 1808503d1..50a785f27 100755
--- a/hledger/Hledger/Cli/Commands/Checkdates.hs
+++ b/hledger/Hledger/Cli/Commands/Checkdates.hs
@@ -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 #-}
 
 module Hledger.Cli.Commands.Checkdates (
diff --git a/hledger/Hledger/Cli/Main.hs b/hledger/Hledger/Cli/Main.hs
index 3be34de63..a0a1b16db 100644
--- a/hledger/Hledger/Cli/Main.hs
+++ b/hledger/Hledger/Cli/Main.hs
@@ -51,7 +51,6 @@ import System.FilePath
 import System.Process
 import Text.Printf
 
-import Hledger (ensureJournalFileExists, getCurrentDay, period_, interval_, queryFromOpts)
 import Hledger.Cli
 
 
diff --git a/hledger/bench/bench.hs b/hledger/bench/bench.hs
index e683a794d..37c24f1ee 100644
--- a/hledger/bench/bench.hs
+++ b/hledger/bench/bench.hs
@@ -9,10 +9,6 @@ import System.Environment (getArgs, withArgs)
 import System.TimeIt      (timeItT)
 import Text.Printf
 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
 inputfile = "bench/10000x1000x10.journal"