Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
PLMZ
sturdy
Commits
e6676632
Commit
e6676632
authored
Jul 01, 2020
by
Tomislav Pree
Browse files
removed comment
parent
1d8597c7
Pipeline
#66064
failed with stages
in 82 minutes and 54 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
lib/src/Control/Arrow/Fix/Stack.hs
View file @
e6676632
...
...
@@ -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 #-}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment