From 2b3919681b49d6f31311bfaf4bc3a958a076618d Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 24 Oct 2011 13:45:52 +0900 Subject: hlint. --- TestProtocol.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'TestProtocol.hs') diff --git a/TestProtocol.hs b/TestProtocol.hs index ee839d9..3c78cb6 100644 --- a/TestProtocol.hs +++ b/TestProtocol.hs @@ -147,7 +147,7 @@ testResponseA = DNSFormat { header = DNSHeader { identifier = 61046 } assertEither :: (a -> String) -> Either a b -> IO () -assertEither f e = either (assertFailure . f) (const $ return ()) e +assertEither f = either (assertFailure . f) (const $ return ()) test_Format :: DNSFormat -> IO () test_Format fmt = do -- cgit v1.2.3