mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 11:07:48 +03:00
233 B
233 B
mutual0 = cases
0 -> "okay"
n ->
_ = openFile
mutual1 (drop n 1)
mutual1 n =
mutual0 n
mkTestCase = do
saveTestCase "case-04" "v4" mutual1 5
scratch/main> add
scratch/main> run mkTestCase