unison/unison-src/transcripts/fix1731.output.md

structural ability CLI where
  print : Text ->{CLI} ()
  input : {CLI} Text

The input here should parse as a wildcard, not as CLI.input.

repro : Text -> ()
repro = cases
  input -> ()

  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`:
    
      repro : Text -> ()