From 6dc94202a991b716be72acdc5cee367b2e8ef081 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 24 Oct 2011 13:40:01 +0900
Subject: hlint.

---
 TestProtocol.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'TestProtocol.hs')

diff --git a/TestProtocol.hs b/TestProtocol.hs
index cef00ee..ee839d9 100644
--- a/TestProtocol.hs
+++ b/TestProtocol.hs
@@ -7,7 +7,6 @@ import Network.DNS.Internal
 import Network.DNS.Query
 import Network.DNS.Response
 import Data.IP
-import Control.Monad.State
 import Test.Framework (defaultMain, testGroup, Test)
 import Test.Framework.Providers.HUnit
 import Test.HUnit hiding (Test)
@@ -17,7 +16,7 @@ tests =
   [ testGroup "Test case"
       [ testCase "QueryA" (test_Format testQueryA)
       , testCase "QueryAAAA" (test_Format testQueryAAAA)
-      , testCase "ResponseA" (test_Format $ testResponseA)
+      , testCase "ResponseA" (test_Format testResponseA)
       ]
   ]
 
-- 
cgit v1.2.3