diff --git a/examples/protocol.tess b/examples/protocol.tess new file mode 100644 index 0000000..dcd5443 --- /dev/null +++ b/examples/protocol.tess @@ -0,0 +1,8 @@ +data State = Idle | Waiting | Connected + +data Message = Hello Int | Data Int | Close + +match classify (s : State) (m : Message) : Int = + | Idle (Hello n) -> n + | Waiting (Data n) -> n + | Connected Close -> 0