Use GHC DeriveDataTypeable to provide a type for SerialPort in stead of

quit hack to make it compile.

System/Hardware/Serialport/Posix.hsc

@@ -1,4 +1,4 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE ForeignFunctionInterface, DeriveDataTypeable  #-}
 {-# OPTIONS_HADDOCK hide #-}
 module System.Hardware.Serialport.Posix where
 
@@ -13,16 +13,15 @@ import Foreign.C
 import GHC.IO.Handle
 import GHC.IO.Device
 import GHC.IO.BufferedIO
-import Data.Typeable.Internal
-import GHC.Fingerprint.Type
+import Data.Typeable
 import GHC.IO.Buffer
 
 
 data SerialPort = SerialPort {
                       fd :: Fd,
                       portSettings :: SerialPortSettings
                   }
-
+                  deriving (Typeable)
 
 
 instance RawIO SerialPort where
@@ -55,10 +54,6 @@ instance BufferedIO SerialPort where
   flushWriteBuffer0 = writeBufNonBlocking
 
 
-instance Typeable SerialPort where
-  typeOf _ = TypeRep (Fingerprint 0 0) (mkTyCon3 "" "" "") []
-
-
 -- |Open and configure a serial port returning a standard Handle
 hOpenSerial :: FilePath
            -> SerialPortSettings

System/Hardware/Serialport/Windows.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveDataTypeable #-}
 {-# OPTIONS_HADDOCK hide #-}
 module System.Hardware.Serialport.Windows where
 
@@ -21,6 +22,7 @@ data SerialPort = SerialPort {
                       handle :: HANDLE,
                       portSettings :: SerialPortSettings
                   }
+                  deriving (Typeable)
 
 
 instance RawIO SerialPort where
@@ -53,10 +55,6 @@ instance BufferedIO SerialPort where
   flushWriteBuffer0 = writeBufNonBlocking
 
 
-instance Typeable SerialPort where
-  typeOf _ = mkTyConApp (mkTyCon "") []
-
-
 -- |Open and configure a serial port returning a standard Handle.
 hOpenSerial :: String
            -> SerialPortSettings