Proxy-hash for tagReplace/tagAttach
commit5c5f6d51d1d114abe03402e92cb66128e82c303e
authorIndex Int <vlad.z.4096@gmail.com>
dateSat 30 Apr 2016, 14:01 (10 years ago)
parent3b7d343
src/Control/Monad/Trans/Ether/Dispatch.hs+3−3
@@ -148,13 +148,13 @@ instance Lift.LiftCallCC (DispatchT dp) where
148148 liftCallCC' = Lift.defaultLiftCallCC' pack unpack
149149
150150-- | 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
152152tagAttach _ = coerce
153153
154154-- | Replace a tag with another tag.
155155tagReplace
156− :: proxy tOld
157− -> proxy tNew
156+ :: Proxy# tOld
157+ -> Proxy# tNew
158158 -> DispatchTagReplaceT tOld tNew m a
159159 -> m a
160160tagReplace _ _ = coerce