diff options
author | 2009-06-27 10:30:51 -0400 | |
---|---|---|
committer | 2009-06-27 10:30:51 -0400 | |
commit | 135664d0a1140f90afd8b67999efe42469fc35fe (patch) | |
tree | de15c7f60f907eed0f97e57484b7c01697373f9a /src/settings.sml | |
parent | 1a20e0c5c29da01338be0812bb819f9dd5e84ebc (diff) |
-debug from the command line
Diffstat (limited to 'src/settings.sml')
-rw-r--r-- | src/settings.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/settings.sml b/src/settings.sml index e1dcc809..a020f373 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -277,4 +277,8 @@ fun setProtocol name = | SOME p => curProto := p fun currentProtocol () = !curProto +val debug = ref false +fun setDebug b = debug := b +fun getDebug () = !debug + end |