Commit e6676632 authored by Tomislav Pree's avatar Tomislav Pree
Browse files

removed comment

parent 1d8597c7
Pipeline #66064 failed with stages
in 82 minutes and 54 seconds
......@@ -127,15 +127,6 @@ instance ArrowStack a c => ArrowStack a (ReaderT r c) where
instance ArrowStackDepth c => ArrowStackDepth (ReaderT r c)
instance ArrowStackElements a c => ArrowStackElements a (ReaderT r c)
---------------DEBUGT
--instance ArrowStack a c => ArrowStack a (DebugT c) where
-- push f = lift $ lmap shuffle1 (push (unlift f))
-- {-# INLINE push #-}
--instance ArrowStackDepth c => ArrowStackDepth (DebugT c)
--instance ArrowStackElements a c => ArrowStackElements a (DebugT c)
---------------
instance ArrowStack a c => ArrowStack a (StateT s c) where
push f = lift $ lmap shuffle1 (push (unlift f))
{-# INLINE push #-}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment