к
Size: a a a
к
Y
Y
<&>
такие штуки находит:data (<&>@#@$$) a6989586621679731619 a6989586621679731620
singletons Data.Singletons.Prelude.Functor
(%<&>) :: forall f_a31L5 a_a31L6 b_a31L7 (t_a31NI :: f_a31L5 a_a31L6) (t_a31NJ :: (~>) a_a31L6 b_a31L7) . SFunctor f_a31L5 => Sing t_a31NI -> Sing t_a31NJ -> Sing (Apply (Apply (<&>@#@$) t_a31NI) t_a31NJ :: f_a31L5 b_a31L7)
singletons Data.Singletons.Prelude.Functor
DB
AA
do
ведь должен минимум Applicative a => a
вернуть, не?Y
ApplicativeDo
. А что тогда?к
к
DB
AA
ApplicativeDo
. А что тогда?Prelude> :t do map
do map :: (a -> b) -> [a] -> [b]
AA
ApplicativeDo
. А что тогда?Y
Prelude> :t \x -> do {pure x}
<interactive>:9:1: error: lexical error at character '\ESC'
Y
Y
Prelude> :t \x -> do {pure x}
\x -> do {pure x} :: Applicative f => a -> f a
к
AA
Prelude> :t \x -> do {pure x}
\x -> do {pure x} :: Applicative f => a -> f a
Y
Y
к
к