annotate tests/getenv.ur @ 2143:4895c41b2ec6

Make naughtyDebug use protocol-specific logging
author Adam Chlipala <adam@chlipala.net>
date Sun, 10 May 2015 12:13:12 -0400
parents 94529780bbcf
children
rev   line source
adam@1993 1 task initialize = fn _ =>
adam@1993 2 v <- getenv (blessEnvVar "USER");
adam@1994 3 case v of
adam@1994 4 None => debug "No USER"
adam@1994 5 | Some u => debug u