_:
Size: a a a
_:
_:
_:
ЗП
_:
ЗП
_:
ЗП
main :: Effect Unit
main = simpleRepl loop
where
loop = do
setPrompt "$ "
dog <- question "What's your dog's name?\n"
log $ ("Can I pet " <> dog <> "?")
str <- prompt
case SCU.uncons str of
Just {head: 'y'} -> log "Thanks!"
_ -> (log "C'mon! Be a sport about it!") *> loop
ЗП
type Repl a = ReaderT RL.Interface Aff a_:
map (.name) xs
MK
MK
(_.name)_:
ЗП
ЗП
MK
MK
ЗП
ЗП
MK