diff options
author | Simon Van Casteren <simon.van.casteren@gmail.com> | 2020-01-08 12:09:57 +0100 |
---|---|---|
committer | Simon Van Casteren <simon.van.casteren@gmail.com> | 2020-01-08 12:09:57 +0100 |
commit | 874e3bc001e64ba058d6632ebe22fbcdac16c00d (patch) | |
tree | 89bc423b3d51fd5f04b0696ee2b106b86497665b /src/bg_thread.dummy.sml | |
parent | cffbd03336348508dfb8d647a593c24b9bc89878 (diff) |
Add bg_thread.dummy.sml to mock MLton threads in sml/nj
Diffstat (limited to 'src/bg_thread.dummy.sml')
-rw-r--r-- | src/bg_thread.dummy.sml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/bg_thread.dummy.sml b/src/bg_thread.dummy.sml new file mode 100644 index 00000000..699fa741 --- /dev/null +++ b/src/bg_thread.dummy.sml @@ -0,0 +1,9 @@ +(* + Dummy implementation. Threading is only supported in MLton. + All other implementations just immediately run the background tasks +*) +structure BgThread:> BGTHREAD = struct + fun queueBgTask filename f = f () + fun hasBgTasks () = false + fun runBgTaskForABit () = () +end |