From ec271d0444658d6a56c221473cfaf3b2b01abea2 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Fri, 28 Feb 2014 19:11:24 +0400
Subject: Fix warnings

---
 tests/Main.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'tests/Main.hs')

diff --git a/tests/Main.hs b/tests/Main.hs
index 75321ec7..204d1656 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -3,7 +3,6 @@ module Main where
 import Control.Exception
 import Control.Monad
 import Data.Functor
-import Data.List
 import Data.Maybe
 import System.Exit
 import System.Environment
@@ -49,22 +48,22 @@ setupEnv EnvOpts {..}
     return (Just ())
 
   | Just client <- testClient = do
-    printf "Bad client `%s`, use one of %s" client (show (fst <$> clients))
+    _ <- printf "Bad client `%s`, use one of %s\n" client (show (fst <$> clients))
     return Nothing
 
-  | isNothing testClient = do
-    printf "Running without remote client"
+  | otherwise = do
+    _ <- printf "Running without remote client\n"
     return (Just ())
 
 terminateEnv :: IO ()
 terminateEnv = do
-  printf "closing screen session: %s" sessionName
+  _ <- printf "closing screen session: %s\n" sessionName
   _ <- system (printf "screen -S %s -X quit" sessionName)
   return ()
 
 runTestSuite :: [String] -> IO ExitCode
 runTestSuite args = do
-  printf "running hspec test suite with args: %s\n" (show args)
+  _ <- printf "running hspec test suite with args: %s\n" (show args)
   catch (withArgs args (hspec spec) >> return ExitSuccess) return
 
 main :: IO ()
-- 
cgit v1.2.3