diff options
Diffstat (limited to 'packages/base/src/Internal/Numeric.hs')
-rw-r--r-- | packages/base/src/Internal/Numeric.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/packages/base/src/Internal/Numeric.hs b/packages/base/src/Internal/Numeric.hs index c9ef0c5..fd0a217 100644 --- a/packages/base/src/Internal/Numeric.hs +++ b/packages/base/src/Internal/Numeric.hs | |||
@@ -5,6 +5,8 @@ | |||
5 | {-# LANGUAGE FunctionalDependencies #-} | 5 | {-# LANGUAGE FunctionalDependencies #-} |
6 | {-# LANGUAGE UndecidableInstances #-} | 6 | {-# LANGUAGE UndecidableInstances #-} |
7 | 7 | ||
8 | {-# OPTIONS_GHC -fno-warn-missing-signatures #-} | ||
9 | |||
8 | ----------------------------------------------------------------------------- | 10 | ----------------------------------------------------------------------------- |
9 | -- | | 11 | -- | |
10 | -- Module : Data.Packed.Internal.Numeric | 12 | -- Module : Data.Packed.Internal.Numeric |
@@ -788,13 +790,7 @@ type instance RealOf (Complex Float) = Float | |||
788 | type instance RealOf I = I | 790 | type instance RealOf I = I |
789 | type instance RealOf Z = Z | 791 | type instance RealOf Z = Z |
790 | 792 | ||
791 | type family ComplexOf x | 793 | type ComplexOf x = Complex (RealOf x) |
792 | |||
793 | type instance ComplexOf Double = Complex Double | ||
794 | type instance ComplexOf (Complex Double) = Complex Double | ||
795 | |||
796 | type instance ComplexOf Float = Complex Float | ||
797 | type instance ComplexOf (Complex Float) = Complex Float | ||
798 | 794 | ||
799 | type family SingleOf x | 795 | type family SingleOf x |
800 | 796 | ||