diff options
author | joe <joe@jerkface.net> | 2014-03-03 21:44:42 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-03-03 21:44:42 -0500 |
commit | 3d051c21587554832724f4087716af540c94068a (patch) | |
tree | f4980975c3219cace61a4b69a8dc893a64da1579 /Presence/LockedChan.hs | |
parent | 5cd226bdc93bdf74b41744b18512afedc86e213d (diff) |
Disabled broken code
Diffstat (limited to 'Presence/LockedChan.hs')
-rw-r--r-- | Presence/LockedChan.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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 | |||
51 | l2 <- newTVar True | 51 | l2 <- newTVar True |
52 | return $ LockedChan l2 c2 | 52 | return $ LockedChan l2 c2 |
53 | else return Nothing | 53 | else return Nothing |
54 | return $ maybe (error "Attempt to clone unlocked channel") | 54 | maybe (do putStrLn "LockedChan: Attempt to clone unlocked channel" |
55 | id | 55 | error "Attempt to clone unlocked channel") |
56 | mchan | 56 | return |
57 | mchan | ||
57 | 58 | ||
58 | #if MIN_VERSION_stm(2,4,0) | 59 | #if MIN_VERSION_stm(2,4,0) |
59 | #else | 60 | #else |