Mercurial > urweb

comparison src/settings.sml @ 857:3d2f6cb6d54a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
-debug from the command line
author Adam Chlipala <adamc@hcoop.net>
date Sat, 27 Jun 2009 10:30:51 -0400
parents 86ec89baee01
children 346cf1908a17
comparison
equal deleted inserted replaced
856:86ec89baee01 857:3d2f6cb6d54a
275 case getProtocol name of 275 case getProtocol name of
276 NONE => raise Fail ("Unknown protocol " ^ name) 276 NONE => raise Fail ("Unknown protocol " ^ name)
277 | SOME p => curProto := p 277 | SOME p => curProto := p
278 fun currentProtocol () = !curProto 278 fun currentProtocol () = !curProto
279 279
280 val debug = ref false
281 fun setDebug b = debug := b
282 fun getDebug () = !debug
283
280 end 284 end