Появился вопрос:
Как сделать инстанс для
newtype StateArrow s a b c =
StateArrow ( a (b,s) (c,s))
для :
class (Monad m,Arrow a)=>AMonad m a where
areturn :: a b (m b)
abind :: a b (m c) -> a (m b) (m c)
Я себе не представляю как сделать такой инстанс без комонады,и думаю,надо оно или нет...