From 0e0354c6daa7eab05cf00c8267a5578eea43ca16 Mon Sep 17 00:00:00 2001 From: Sidharth Kapur Date: Mon, 4 Apr 2016 10:38:30 -0500 Subject: Remove Binary orphan instance for Complex --- packages/base/src/Internal/Static.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'packages') diff --git a/packages/base/src/Internal/Static.hs b/packages/base/src/Internal/Static.hs index a0af085..381f3bc 100644 --- a/packages/base/src/Internal/Static.hs +++ b/packages/base/src/Internal/Static.hs @@ -48,11 +48,6 @@ type ℂ = Complex Double newtype Dim (n :: Nat) t = Dim t deriving (Show, Generic) -instance Binary a => Binary (Complex a) - where - put (r :+ i) = put (r, i) - get = (\(r,i) -> r :+ i) <$> get - instance (KnownNat n, Binary a) => Binary (Dim n a) where get = do k <- get @@ -84,13 +79,13 @@ newtype R n = R (Dim n (Vector ℝ)) deriving (Num,Fractional,Floating,Generic,Binary) newtype C n = C (Dim n (Vector ℂ)) - deriving (Num,Fractional,Floating,Generic,Binary) + deriving (Num,Fractional,Floating,Generic) newtype L m n = L (Dim m (Dim n (Matrix ℝ))) deriving (Generic, Binary) newtype M m n = M (Dim m (Dim n (Matrix ℂ))) - deriving (Generic, Binary) + deriving (Generic) mkR :: Vector ℝ -> R n mkR = R . Dim -- cgit v1.2.3