diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-02 12:10:43 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-02 12:10:43 -0400 |
| commit | f996ddede8ad8df6a6b475185b5384366f0dd6c9 (patch) | |
| tree | b2b7e5a618878c8ac7026aa98312d6f9697bc9f6 /src/settings.sml | |
| parent | 4b3399b59d17ed32c8c2800267b8c59fd0378f21 (diff) | |
More FFI compiler options
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 b022219d..9e619b54 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -30,6 +30,7 @@ structure Settings :> SETTINGS = struct val urlPrefix = ref "/" val timeout = ref 0 val headers = ref ([] : string list) +val scripts = ref ([] : string list) fun getUrlPrefix () = !urlPrefix fun setUrlPrefix p = @@ -46,6 +47,9 @@ fun setTimeout n = timeout := n fun getHeaders () = !headers fun setHeaders ls = headers := ls +fun getScripts () = !scripts +fun setScripts ls = scripts := ls + type ffi = string * string structure K = struct |