Changeset 20058 for src/Pugs/Monads.hs
- Timestamp:
- 03/04/08 22:06:31 (9 months ago)
- Files:
-
- 1 modified
-
src/Pugs/Monads.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Monads.hs
r17044 r20058 252 252 recloseRef :: VRef -> STM VRef 253 253 recloseRef (MkRef (ICode cv)) 254 | Just vcode<- fromTypeable cv = do254 | Just (vcode :: VCode) <- fromTypeable cv = do 255 255 vcode' <- recloseCode vcode 256 256 return . MkRef . ICode $ vcode'
