ATS case- with guard error

Run Settings
LanguageATS
Language Version
Run Command
#include "share/atspre_staload.hats" datatype Option = | OpSome of int | OpNone implement main0 () = let fun test (o: Option): int = case- o of | OpSome n when n > 0 => n val _ = println! (test (OpSome ~1)) in end
Editor Settings
Theme
Key bindings
Full width
Lines