fix typo in test

This commit is contained in:
Paul Chiusano 2018-06-21 18:05:53 -04:00
parent 4f074273fc
commit a38ebba0e2

View File

@ -278,7 +278,7 @@ test = scope "typechecker" . tests $
| inc-by i = | inc-by i =
| launch-missiles() -- not allowed | launch-missiles() -- not allowed
| y = State.get() | y = State.get()
| State.set (y +_Int64 i) | State.put (y +_Int64 i)
| () | ()
| |
|() |()
@ -295,9 +295,9 @@ test = scope "typechecker" . tests $
|foo unit = |foo unit =
| inc-by : Int64 -> {IO, State Int} () | inc-by : Int64 -> {IO, State Int} ()
| inc-by i = | inc-by i =
| launch-missiles() -- OK, since declared by `inc-by` signature | IO.launch-missiles() -- OK, since declared by `inc-by` signature
| y = State.get() | y = State.get()
| State.set (y +_Int64 i) | State.put (y +_Int64 i)
| () | ()
| |
|() |()