diff options
| author | Dominic Steinitz <dominic@steinitz.org> | 2018-04-03 07:39:18 +0100 |
|---|---|---|
| committer | Dominic Steinitz <dominic@steinitz.org> | 2018-04-03 07:39:18 +0100 |
| commit | 6c120cf8c1271da8c39926b47384ac1b117e7c96 (patch) | |
| tree | 903fa549ea33ae9eff9fb527375f87548948d41d /packages/base/src/Internal | |
| parent | 41126759c32cdf3ee20ef9e79df31905893656e0 (diff) | |
| parent | 033815c6183da48233dd249abcd232685ecc21cf (diff) | |
Merge branch 'master' of https://github.com/albertoruiz/hmatrix
Diffstat (limited to 'packages/base/src/Internal')
| -rw-r--r-- | packages/base/src/Internal/Numeric.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/packages/base/src/Internal/Numeric.hs b/packages/base/src/Internal/Numeric.hs index 216f142..fd0a217 100644 --- a/packages/base/src/Internal/Numeric.hs +++ b/packages/base/src/Internal/Numeric.hs | |||
| @@ -790,13 +790,7 @@ type instance RealOf (Complex Float) = Float | |||
| 790 | type instance RealOf I = I | 790 | type instance RealOf I = I |
| 791 | type instance RealOf Z = Z | 791 | type instance RealOf Z = Z |
| 792 | 792 | ||
| 793 | type family ComplexOf x | 793 | type ComplexOf x = Complex (RealOf x) |
| 794 | |||
| 795 | type instance ComplexOf Double = Complex Double | ||
| 796 | type instance ComplexOf (Complex Double) = Complex Double | ||
| 797 | |||
| 798 | type instance ComplexOf Float = Complex Float | ||
| 799 | type instance ComplexOf (Complex Float) = Complex Float | ||
| 800 | 794 | ||
| 801 | type family SingleOf x | 795 | type family SingleOf x |
| 802 | 796 | ||