From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 23 Nov 2013 20:37:35 +0000 (-0500)
Subject: Remove useless deepseqs.
X-Git-Tag: 0.0.2~48
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=5f936c8d5d0806b388070cf9f231b1ff622b7541;p=dead%2Fhtsn.git

Remove useless deepseqs.
---

diff --git a/htsn.cabal b/htsn.cabal
index 10b2d50..6e93549 100644
--- 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 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: "