Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Magnify instance for CPS RWST #1060

Merged
merged 8 commits into from
May 5, 2024
Merged

Magnify instance for CPS RWST #1060

Changes from 2 commits
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
b7b6d1d
allow filepath version < 1.6
BebeSparkelSparkel Jan 21, 2024
d4b2062
MonadReader instance for CPS RWST
BebeSparkelSparkel Mar 10, 2024
6f5c4b8
Merge branch 'magnify-rws-cps'
BebeSparkelSparkel Mar 10, 2024
14e28b1
compiles instance of Magnify for CPS.RWST if mtl version >= 2.3
BebeSparkelSparkel Mar 14, 2024
77c5983
Merge branch 'magnify-rws-cps'
BebeSparkelSparkel Mar 14, 2024
4f5c3d9
compiles instance of Magnify for CPS.RWST if mtl version >= 2.3
BebeSparkelSparkel Mar 14, 2024
3e4b00d
Merge branch 'magnify-rws-cps'
BebeSparkelSparkel Mar 15, 2024
f88e239
CPP min version of mtl for CPS
BebeSparkelSparkel May 5, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions src/Control/Lens/Zoom.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -46,6 +46,7 @@ import Control.Monad.Trans.Writer.Lazy as Lazy
import Control.Monad.Trans.Writer.Strict as Strict
import Control.Monad.Trans.RWS.Lazy as Lazy
import Control.Monad.Trans.RWS.Strict as Strict
import Control.Monad.Trans.RWS.CPS as CPS
BebeSparkelSparkel marked this conversation as resolved.
Show resolved Hide resolved
import Control.Monad.Trans.Except
import Control.Monad.Trans.Identity
import Control.Monad.Trans.Maybe
Expand Down Expand Up @@ -102,6 +103,7 @@ type instance Magnified (ReaderT b m) = Effect m
type instance Magnified ((->)b) = Const
type instance Magnified (Strict.RWST a w s m) = EffectRWS w s m
type instance Magnified (Lazy.RWST a w s m) = EffectRWS w s m
type instance Magnified (CPS.RWST a w s m) = EffectRWS w s m
BebeSparkelSparkel marked this conversation as resolved.
Show resolved Hide resolved
type instance Magnified (IdentityT m) = Magnified m

------------------------------------------------------------------------------
Expand Down Expand Up @@ -274,6 +276,12 @@ instance (Monad m, Monoid w) => Magnify (Lazy.RWST b w s m) (Lazy.RWST a w s m)
magnify l (Lazy.RWST m) = Lazy.RWST $ getEffectRWS #. l (EffectRWS #. m)
{-# INLINE magnify #-}

#if MIN_VERSION_mtl(2,3,0)
instance (Monad m, Monoid w, MonadReader b (CPS.RWST b w s m)) => Magnify (CPS.RWST b w s m) (CPS.RWST a w s m) b a where
magnify l m = CPS.rwsT $ getEffectRWS #. l (EffectRWS #. CPS.runRWST m)
{-# INLINE magnify #-}
#endif

instance Magnify m n b a => Magnify (IdentityT m) (IdentityT n) b a where
magnify l (IdentityT m) = IdentityT (magnify l m)
{-# INLINE magnify #-}
Loading