diff options
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 |