Remove useless deepseqs.

[dead/htsn.git] / src / Main.hs

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