diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-06 18:42:42 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-06 18:42:42 +0200 |
commit | c680fbb7a743b2fc519987a4d5f24bb9b675655f (patch) | |
tree | dfe7ad57aa6fe8c0a8427884db1b7a0ca85f73ba /packages/base/src/Internal/Conversion.hs | |
parent | 66db67b299bd91f3cf35f93500e05eaf6c8085d3 (diff) |
support for Int64 elements
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 |