From c680fbb7a743b2fc519987a4d5f24bb9b675655f Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Sat, 6 Jun 2015 18:42:42 +0200
Subject: support for Int64 elements

---
 packages/base/src/Internal/Conversion.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'packages/base/src/Internal/Conversion.hs')

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
     double2FloatG = asComplex . double2FloatV . asReal
     float2DoubleG = asComplex . float2DoubleV . asReal
 
+instance Precision I Z where
+    double2FloatG = long2intV
+    float2DoubleG = int2longV
+
+
 -- | Supported real types
 class (Element t, Element (Complex t), RealFloat t)
     => RealElement t
-- 
cgit v1.2.3