Bas van Dijk wrote:
> On 6 December 2011 09:12, Bas van Dijk <v.dijk....@gmail.com> wrote:
> > instance MonadBaseControl IO Annex where
> >    newtype StM Annex a = StAnnex (StM (StateT AnnexState IO) a)
> >    liftBaseWith f = Annex $ liftBaseWith $ \runInIO ->
> >                       f $ liftM StAnnex . runInIO . runAnnex
> 
> Oops forgot the restoreM method:
> 
>    restoreM = Annex . restoreM . unStAnnex
> 
> unStAnnex (StAnnex st) = st

Aha! Thanks again.

-- 
see shy jo

Attachment: signature.asc
Description: Digital signature

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to