From 40bf42e5eac971e66a818ab8b0661dab0c4c0e65 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sat, 29 Mar 2008 23:24:50 +0000
Subject: [PATCH] Remove obsolete CGenCall instance.

---
 backends/GenerateCBased.hs | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/backends/GenerateCBased.hs b/backends/GenerateCBased.hs
index f516af0..74260eb 100644
--- a/backends/GenerateCBased.hs
+++ b/backends/GenerateCBased.hs
@@ -216,15 +216,6 @@ instance CGenCall (a -> b -> c -> d -> e -> CGen z) where
     = do ops <- ask
          f ops x0 x1 x2 x3 x4
 
--- A bit of a mind-boggler, but this is essentially for genSlice
-instance CGenCall (a -> b -> c -> d -> (CGen x, y -> CGen z)) where
-  call f x0 x1 x2 x3
-    = (do ops <- ask
-          fst $ f ops x0 x1 x2 x3
-      ,\y -> do ops <- ask
-                (snd $ f ops x0 x1 x2 x3) y
-      )
-
 fget :: (GenOps -> a) -> CGen a
 fget = asks