diff options
Diffstat (limited to 'packages/base/src/Internal/Conversion.hs')
-rw-r--r-- | packages/base/src/Internal/Conversion.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/packages/base/src/Internal/Conversion.hs b/packages/base/src/Internal/Conversion.hs index 2f4a9c7..4541ec4 100644 --- a/packages/base/src/Internal/Conversion.hs +++ b/packages/base/src/Internal/Conversion.hs | |||
@@ -44,6 +44,11 @@ instance Precision (Complex Float) (Complex Double) where | |||
44 | double2FloatG = asComplex . double2FloatV . asReal | 44 | double2FloatG = asComplex . double2FloatV . asReal |
45 | float2DoubleG = asComplex . float2DoubleV . asReal | 45 | float2DoubleG = asComplex . float2DoubleV . asReal |
46 | 46 | ||
47 | instance Precision I Z where | ||
48 | double2FloatG = long2intV | ||
49 | float2DoubleG = int2longV | ||
50 | |||
51 | |||
47 | -- | Supported real types | 52 | -- | Supported real types |
48 | class (Element t, Element (Complex t), RealFloat t) | 53 | class (Element t, Element (Complex t), RealFloat t) |
49 | => RealElement t | 54 | => RealElement t |