diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-03-16 10:09:01 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-03-16 10:09:01 -0400 |
| commit | 8d25de5bfec9180f3a07b7f1897bea3fca11b2a9 (patch) | |
| tree | 32012eb864854a36e74947956e1133ce84cd64a7 /tests/unpoly.ur | |
| parent | c94b5c539cf1941b834fa9b66dba5979440e25fb (diff) | |
Undo an Especialize change that turned out to be unecessary
Diffstat (limited to 'tests/unpoly.ur')
| -rw-r--r-- | tests/unpoly.ur | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/unpoly.ur b/tests/unpoly.ur new file mode 100644 index 00000000..706f3653 --- /dev/null +++ b/tests/unpoly.ur @@ -0,0 +1,28 @@ +val current = return (Some "1") +fun resolve (_ : string) = return (Some "2") + +fun checkDeps deps = + u <- current; + List.foldlM (fn s (good, errs) => + v' <- resolve s; + case v' of + None => + return (False, <xml> + {errs} + Unknown library path <tt>{[s]}</tt>.<br/> + </xml>) + | Some v' => + b <- return True; + if b then + return (good, errs) + else + return (False, <xml> + {errs} + Access denied to <tt>{[s]}</tt>.<br/> + </xml>)) (True, <xml/>) deps + +fun main () = + p <- checkDeps ("a" :: "b" :: []); + return <xml><body> + {p.2} + </body></xml> |