unison/unison-src/transcripts/fix4172.md

scratch/main> builtins.merge

debug a = match Debug.toText a with
  None -> ""
  Some (Left a) -> a
  Some (Right a) -> a

test> t1 = if bool then [Ok "Yay"] 
           else [Fail (debug [1,2,3])]
bool = true

allowDebug = debug [1,2,3]

scratch/main> add
scratch/main> test

bool = false

scratch/main> update.old
scratch/main> test