Update effects example to reproduce bug

This commit is contained in:
Richard Feldman 2021-09-12 10:17:56 -04:00
parent fb719e83d9
commit e00c8b6837

View File

@ -5,4 +5,8 @@ app "effect-example"
main : Effect.Effect {}
main =
Effect.after Effect.getLine \lineThisThing -> Effect.putLine lineThisThing
Effect.after (Effect.putLine "Enter some input:") \{} ->
Effect.after Effect.getLine \lineThisThing ->
Effect.after (Effect.putLine "You entered:") \{} ->
Effect.after (Effect.putLine lineThisThing) \{} ->
Effect.always {}