summaryrefslogtreecommitdiff
path: root/standalone/android/haskell-patches/SafeSemaphore_fix-build-with-new-base.patch
blob: a79ca519a56125ea081f1deec4fefa28181cbc3c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
From 010db89634eb0f64e7961581e65da3acbb2b9f3d Mon Sep 17 00:00:00 2001
From: foo <foo@bar>
Date: Sat, 21 Sep 2013 22:05:41 +0000
Subject: [PATCH] fix build with new base

---
 src/Control/Concurrent/MSampleVar.hs |    6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/Control/Concurrent/MSampleVar.hs b/src/Control/Concurrent/MSampleVar.hs
index d029c64..16ad6c5 100644
--- a/src/Control/Concurrent/MSampleVar.hs
+++ b/src/Control/Concurrent/MSampleVar.hs
@@ -30,7 +30,7 @@ module Control.Concurrent.MSampleVar
 import Control.Monad(void,join)
 import Control.Concurrent.MVar(MVar,newMVar,newEmptyMVar,tryTakeMVar,takeMVar,putMVar,withMVar,isEmptyMVar)
 import Control.Exception(mask_)
-import Data.Typeable(Typeable1(typeOf1),mkTyCon,mkTyConApp)
+import Data.Typeable(mkTyConApp)
 
 -- |
 -- Sample variables are slightly different from a normal 'MVar':
@@ -62,10 +62,6 @@ data MSampleVar a = MSampleVar { readQueue :: MVar ()
                                , lockedStore :: MVar (MVar a) }
   deriving (Eq)
 
-instance Typeable1 MSampleVar where
-  typeOf1 _ = mkTyConApp tc []
-    where tc = mkTyCon "MSampleVar"
-
 
 -- | 'newEmptySV' allocates a new MSampleVar in an empty state.  No futher
 -- allocation is done when using the 'MSampleVar'.
-- 
1.7.10.4