git.iko.soy/typeable/ether
on master help sign in
Proxy-hash for tagReplace/tagAttach
5c5f6d5Index Int
src/Control/Monad/Trans/Ether/Dispatch.hs+3−3
compare with master
unifiedsplit
@@ -148,13 +148,13 @@ instance Lift.LiftCallCC (DispatchT dp) where
148 liftCallCC' = Lift.defaultLiftCallCC' pack unpack
148 liftCallCC' = Lift.defaultLiftCallCC' pack unpack
149
149
150-- | Attach a tag to untagged transformers.
150-- | Attach a tag to untagged transformers.
151−tagAttach :: proxy t -> DispatchTagAttachT t m a -> m a
151+tagAttach :: Proxy# t -> DispatchTagAttachT t m a -> m a
152tagAttach _ = coerce
152tagAttach _ = coerce
153
153
154-- | Replace a tag with another tag.
154-- | Replace a tag with another tag.
155tagReplace
155tagReplace
156− :: proxy tOld
156+ :: Proxy# tOld
157− -> proxy tNew
157+ -> Proxy# tNew
158 -> DispatchTagReplaceT tOld tNew m a
158 -> DispatchTagReplaceT tOld tNew m a
159 -> m a
159 -> m a
160tagReplace _ _ = coerce
160tagReplace _ _ = coerce