--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/pprint.ur Fri Apr 27 07:35:59 2012 -0400 @@ -0,0 +1,4 @@ +fun isNone [a] (x : option a) = + case x of + None => True + | Some _ => False