sourceModuleTamper.tri (247B)
1 !import "source.module" !Local 2 !import "io" !Local 3 !import "prelude" !Local 4 main = io (onResult_ (sourceModuleLoadSelected "__ROOT__" "__HASH__" "main") 5 (problem : putStrLn (append "rejected: " problem)) 6 (_ : putStrLn "ACCEPTED-TAMPER")) 7 main