Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

instance Exception DNSError.

  • Loading branch information...
commit 7ef7c4c2ff64ada3892dcbfed2ff882e9034c775 1 parent ab851a7
@kazu-yamamoto authored
Showing with 7 additions and 1 deletion.
  1. +7 −1 Network/DNS/Internal.hs
View
8 Network/DNS/Internal.hs
@@ -1,10 +1,14 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+
module Network.DNS.Internal where
+import Control.Exception (Exception)
import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as BS
import Data.Char
import Data.IP
import Data.Maybe
+import Data.Typeable (Typeable)
----------------------------------------------------------------
@@ -57,7 +61,9 @@ data DNSError =
-- | The answer has the correct sequence number, but returned an
-- unexpected RDATA format.
| UnexpectedRDATA
- deriving (Eq, Show)
+ deriving (Eq, Show, Typeable)
+
+instance Exception DNSError
-- | Raw data format for DNS Query and Response.
data DNSFormat = DNSFormat {
Please sign in to comment.
Something went wrong with that request. Please try again.