mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
complete patterns in console1
This commit is contained in:
parent
a8e46696a9
commit
326ad64c16
@ -15,6 +15,7 @@ snd = cases Tuple.Cons _ (Tuple.Cons b _) -> b
|
||||
|
||||
simulate : Request Console a -> {State ([Text], [Text])} a
|
||||
simulate = cases
|
||||
{ pure } -> pure
|
||||
{Console.read -> k} -> handle
|
||||
io = State.get
|
||||
ins = fst io
|
||||
|
Loading…
Reference in New Issue
Block a user