diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 13:45:52 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 13:45:52 +0900 |
| commit | 2b3919681b49d6f31311bfaf4bc3a958a076618d (patch) | |
| tree | 12af957899caedf2b47a87dc3b5dc2b82b6fd0d3 /TestProtocol.hs | |
| parent | 6dc94202a991b716be72acdc5cee367b2e8ef081 (diff) | |
hlint.
Diffstat (limited to 'TestProtocol.hs')
| -rw-r--r-- | TestProtocol.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |