mirror of
https://github.com/unisonweb/unison.git
synced 2024-11-10 20:00:27 +03:00
44 lines
697 B
Markdown
44 lines
697 B
Markdown
```unison
|
|
mutual0 = cases
|
|
0 -> "okay"
|
|
n ->
|
|
_ = openFile
|
|
mutual1 (drop n 1)
|
|
|
|
mutual1 n =
|
|
mutual0 n
|
|
|
|
mkTestCase = do
|
|
saveTestCase "case-04" "v4" mutual1 5
|
|
```
|
|
|
|
```ucm
|
|
|
|
Loading changes detected in scratch.u.
|
|
|
|
I found and typechecked these definitions in scratch.u. If you
|
|
do an `add` or `update`, here's how your codebase would
|
|
change:
|
|
|
|
⍟ These new definitions are ok to `add`:
|
|
|
|
mkTestCase : '{IO, Exception} ()
|
|
mutual0 : Nat -> Text
|
|
mutual1 : Nat -> Text
|
|
|
|
```
|
|
```ucm
|
|
.> add
|
|
|
|
⍟ I've added these definitions:
|
|
|
|
mkTestCase : '{IO, Exception} ()
|
|
mutual0 : Nat -> Text
|
|
mutual1 : Nat -> Text
|
|
|
|
.> run mkTestCase
|
|
|
|
()
|
|
|
|
```
|