unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-17 13:27:30 +03:00
Code Issues Projects Releases Wiki Activity
8a405e02d2
unison/unison-src/transcripts/pattern-pretty-print-2345.md
Chris Penner 5ca1eb3b8d Replace '.' references with scratch/main
2024-06-25 11:11:07 -07:00

1.1 KiB
Raw Blame History

Regression test for https://github.com/unisonweb/unison/pull/2377

scratch/main> builtins.merge

structural ability Ab where
  a: Nat -> ()

dopey = cases
  ?0 -> ()
  _ -> ()

grumpy = cases
  d -> ()

happy = cases
  true -> ()
  false -> ()

sneezy = cases
  +1 -> ()
  _ -> ()

bashful = cases
  Some a -> ()
  _ -> ()

mouthy = cases
  [] -> ()
  _ -> ()

pokey = cases
  h +: t -> ()
  _ -> ()

sleepy = cases
  i :+ l -> ()
  _ -> ()

demure = cases
  [0] -> ()
  _ -> ()

angry = cases
  a ++ [] -> ()

tremulous = cases
  (0,1) -> ()
  _ -> ()

throaty = cases
  { Ab.a a -> k } -> ()
  { _ } -> ()
  
agitated = cases
  a | a == 2 -> ()
  _ -> ()

doc = cases
  y@4 -> () 
  _ -> ()

scratch/main> add
scratch/main> view dopey
scratch/main> view grumpy
scratch/main> view happy
scratch/main> view sneezy
scratch/main> view bashful
scratch/main> view mouthy
scratch/main> view pokey
scratch/main> view sleepy
scratch/main> view demure
scratch/main> view angry
scratch/main> view tremulous
scratch/main> view throaty
scratch/main> view agitated
scratch/main> view doc