sourceModuleConcurrent.tri (244B)
1 !import "source.object" !Local 2 !import "io" !Local 3 !import "prelude" !Local 4 main = io (onResult_ (sourceObjectPutTree "__ROOT__" (t t)) 5 (problem : putStrLn (append "write-failed: " problem)) 6 (hash : putStrLn (append "written=" hash))) 7 main