Remove useless deepseqs.

diff --git a/htsn.cabal b/htsn.cabal
index 10b2d50376f1a4e366afbb36abfa06ca27b153a6..6e9354926889d9a08ae159dc4138740be305792d 100644 (file)
--- a/htsn.cabal
+++ b/htsn.cabal
@@ -20,7 +20,6 @@ executable htsn
     base                        == 4.*,
     cmdargs                     >= 0.10.5,
     configurator                == 0.2.*,
-    deepseq                     == 1.3.*,
     directory                   == 1.2.*,
     filepath                    == 1.3.*,
     hxt                         == 9.3.*,

diff --git a/src/Main.hs b/src/Main.hs
index 829440ec35fa1a364d11a6b9605edf866df0bd94..34d775b672ad92b683be5c70e151a309137d50d3 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -5,7 +5,6 @@ module Main
 where
 
 import Control.Concurrent (threadDelay)
-import Control.DeepSeq (deepseq)
 import Control.Exception.Base (bracket)
 import Control.Monad (forever, when)
 import Data.List (isPrefixOf)
@@ -104,8 +103,8 @@ log_in cfg h = do
       report_error "ERROR: didn't receive password prompt."
     else do
       send_line h (password cfg)
-      banner <- recv_line h -- "The Sports Network"
-      banner `deepseq` return ()
+      _ <- recv_line h -- "The Sports Network"
+      return ()
   where
     username_prompt = "Username: "
     password_prompt = "Password: "