diff --git a/bin/hledger-smooth.hs b/bin/hledger-smooth.hs
index 3c0b76637..5e3e2134b 100755
--- a/bin/hledger-smooth.hs
+++ b/bin/hledger-smooth.hs
@@ -85,7 +85,7 @@ main = do
 -- into equivalent daily postings up to the next given end date,
 -- keeping track of remaining end dates.
 splitTransactionPostings :: Query -> AccountName -> [Day] -> Transaction -> ([Day], Transaction)
-splitTransactionPostings q acct dates t
+splitTransactionPostings _q acct dates t
   -- | q `matchesTransaction` t = (dates', t')
   -- | otherwise                = (dates, t)
   | otherwise                = (dates', t')
diff --git a/bin/hledger-swap-dates.hs b/bin/hledger-swap-dates.hs
index 7d2cdf4cd..6efeffc3c 100755
--- a/bin/hledger-swap-dates.hs
+++ b/bin/hledger-swap-dates.hs
@@ -11,9 +11,7 @@
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE RecordWildCards #-}
 
-import Data.List
 import Data.String.Here
-import qualified Data.Text.IO as T
 import Hledger
 import Hledger.Cli