Lots more instances for base types

Author: fpringle

src/Generics/Diff/Instances.hs

@@ -15,7 +15,11 @@ module Generics.Diff.Instances where
 
 import Control.Applicative
 import Control.Concurrent
+import Control.Exception
+import Data.Array.Byte
+import Data.Char
 import Data.Complex
+import Data.Data
 import Data.Fixed
 import qualified Data.Functor.Compose as F
 import Data.Functor.Identity
@@ -34,23 +38,41 @@ import qualified Data.Text as T
 import Data.Text.Encoding.Error (UnicodeException)
 import qualified Data.Text.Lazy as TL
 import qualified Data.Text.Lazy.Builder as TLB
-import Data.Typeable
+import Data.Type.Coercion
 import Data.Unique
 import Data.Version
 import Data.Void
 import Data.Word
+import Foreign.C.ConstPtr
+import Foreign.C.Error
 import Foreign.C.Types
 import Foreign.ForeignPtr
 import Foreign.Ptr
 import Foreign.StablePtr
+import GHC.Arr
+import GHC.Base
+import GHC.ByteOrder
 import GHC.Conc
 import GHC.Event
+import GHC.Fingerprint
+import qualified GHC.Generics as G
+import GHC.IO.Buffer
+import GHC.IO.Device
+import GHC.IOArray
+import GHC.IOPort
+import GHC.InfoProv
 import GHC.StableName
+import GHC.Stack
+import GHC.Stack.CloneStack
+import GHC.TypeLits
 import Generics.Diff.Class
 import Generics.Diff.Type
 import Generics.SOP
-import Numeric.Natural
+import System.Exit
 import System.IO
+import System.IO.Error
+import System.Timeout
+import Text.Read
 import qualified Type.Reflection as TR
 
 -- primitive(ish) types
@@ -143,6 +165,53 @@ instance Diff TL.Text where diff = eqDiff
 instance Diff TLB.Builder where diff = eqDiff
 instance Diff UnicodeException where diff = eqDiff
 
+instance Diff ArithException where diff = eqDiff
+instance Diff ArrayException where diff = eqDiff
+instance Diff Associativity where diff = eqDiff
+instance Diff AsyncException where diff = eqDiff
+instance Diff BlockReason where diff = eqDiff
+instance Diff BufferMode where diff = eqDiff
+instance Diff BufferState where diff = eqDiff
+instance Diff ByteArray where diff = eqDiff
+instance Diff ByteOrder where diff = eqDiff
+instance Diff CBool where diff = eqDiff
+instance Diff (Coercion a b) where diff = eqDiff
+instance Diff (ConstPtr a) where diff = eqDiff
+instance Diff DataRep where diff = eqDiff
+instance Diff G.DecidedStrictness where diff = eqDiff
+instance Diff Errno where diff = eqDiff
+instance Diff ErrorCall where diff = eqDiff
+instance Diff ExitCode where diff = eqDiff
+instance Diff FdKey where diff = eqDiff
+instance Diff Fingerprint where diff = eqDiff
+instance Diff G.Fixity where diff = eqDiff
+instance Diff GeneralCategory where diff = eqDiff
+instance Diff InfoProv where diff = eqDiff
+instance Diff (IOArray i e) where diff = eqDiff
+instance Diff IODeviceType where diff = eqDiff
+instance Diff IOErrorType where diff = eqDiff
+instance Diff IOException where diff = eqDiff
+instance Diff IOMode where diff = eqDiff
+instance Diff (IOPort a) where diff = eqDiff
+instance Diff Lexeme where diff = eqDiff
+instance Diff Lifetime where diff = eqDiff
+instance Diff MaskingState where diff = eqDiff
+instance Diff (MutableByteArray a) where diff = eqDiff
+instance Diff NewlineMode where diff = eqDiff
+instance Diff Newline where diff = eqDiff
+instance Diff (OrderingI a b) where diff = eqDiff
+instance Diff SeekMode where diff = eqDiff
+instance Diff SomeChar where diff = eqDiff
+instance Diff SomeNat where diff = eqDiff
+instance Diff SomeSymbol where diff = eqDiff
+instance Diff SrcLoc where diff = eqDiff
+instance Diff StackEntry where diff = eqDiff
+instance Diff (STArray s i a) where diff = eqDiff
+instance Diff ThreadStatus where diff = eqDiff
+instance Diff TimeoutKey where diff = eqDiff
+instance Diff Timeout where diff = eqDiff
+instance Diff TrName where diff = eqDiff
+
 {- FOURMOLU_ENABLE -}
 
 -- list-like types