p
Size: a a a
p
e
p
module Main where
import Prelude
import Effect (Effect)
import Data.Lens as L
bar :: forall a. a -> ( L.Lens' a Int ) -> Unit
bar u l = unit
baz :: ( L.Lens' Int Int ) -> Unit
baz = bar 10
main :: Effect Unit
main = pure unit
p
p
e
p
e
p
ЗП
baz :: Lens' Int Int -> Int -> Unit
baz l n = bar foo l n
e
p
baz :: Lens' Int Int -> Int -> Unit
baz l n = bar foo l n
ЗП
ЗП
e
baz :: Lens' Int Int -> Int -> Unit
baz l n = bar foo l n
p
ЗП
ЗП
var fix = f => x => f(fix(f))(x)второй взорвется при использовании
var fix1 = f => f(fix1(f))
e