X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn.git;a=blobdiff_plain;f=src%2FMain.hs;h=34d775b672ad92b683be5c70e151a309137d50d3;hp=829440ec35fa1a364d11a6b9605edf866df0bd94;hb=5f936c8d5d0806b388070cf9f231b1ff622b7541;hpb=d4d924b26e451aec9ad84b6d9d376ba2aeab3422

diff --git a/src/Main.hs b/src/Main.hs
index 829440e..34d775b 100644
--- 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: "