From 3d051c21587554832724f4087716af540c94068a Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 3 Mar 2014 21:44:42 -0500
Subject: Disabled broken code

---
 Presence/LockedChan.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'Presence/LockedChan.hs')

diff --git a/Presence/LockedChan.hs b/Presence/LockedChan.hs
index a562bc58..eac2b5ad 100644
--- a/Presence/LockedChan.hs
+++ b/Presence/LockedChan.hs
@@ -51,9 +51,10 @@ cloneLChan c = do
                     l2 <- newTVar True
                     return $ LockedChan l2 c2
             else return Nothing
-    return $ maybe (error "Attempt to clone unlocked channel")
-                   id
-                   mchan
+    maybe (do putStrLn "LockedChan: Attempt to clone unlocked channel"
+              error "Attempt to clone unlocked channel")
+          return
+          mchan
 
 #if MIN_VERSION_stm(2,4,0)
 #else
-- 
cgit v1.2.3