composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-20 07:58:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Move an unsafeCoerce to a better place

Browse Source
This commit is contained in:
Harendra Kumar 2017-06-26 15:24:26 +05:30
parent 3251739569
commit 1b31d0baf1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Strands/Context.hs
View File

@ -188,7 +188,7 @@ composeContext :: (MonadIO m, MonadPlus m) => Context -> m a
composeContext Context { currentm = m composeContext Context { currentm = m
, fstack = fs , fstack = fs
} = } =
unsafeCoerce m >>= composefStack (unsafeCoerce fs) unsafeCoerce m >>= composefStack fs
where where
@ -201,7 +201,7 @@ composeContext Context { currentm = m
-- composefStack :: Monad m => [a -> AsyncT m a] -> a -> AsyncT m b -- composefStack :: Monad m => [a -> AsyncT m a] -> a -> AsyncT m b
composefStack [] _ = error "Bug: this should never be reached" composefStack [] _ = error "Bug: this should never be reached"
composefStack (f:ff) x = f x >>= composefStack ff composefStack (f:ff) x = (unsafeCoerce f) x >>= composefStack ff
setContextMailBox :: Context -> a -> Context setContextMailBox :: Context -> a -> Context
setContextMailBox ctx mbdata = ctx { mailBox = Just $ unsafeCoerce mbdata } setContextMailBox ctx mbdata = ctx { mailBox = Just $ unsafeCoerce mbdata }