complete patterns in console1

This commit is contained in:
Travis Staton 2023-04-13 21:11:57 -04:00
parent a8e46696a9
commit 326ad64c16
No known key found for this signature in database
GPG Key ID: 431DD911A00DAE49

View File

@ -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