From 5f936c8d5d0806b388070cf9f231b1ff622b7541 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sat, 23 Nov 2013 15:37:35 -0500 Subject: [PATCH] Remove useless deepseqs. --- htsn.cabal | 1 - src/Main.hs | 5 ++--- 2 files changed, 2 insertions(+), 4 deletions(-) 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: " -- 2.43.2