tricu

An interpreted language for exploring Tree Calculus
Log | Files | Refs | README | LICENSE

sourceModuleLockTamper.tri (361B)

      1 !import "source.lock" !Local
      2 !import "prelude" !Local
      3 !import "io" !Local
      4 root = "__ROOT__"
      5 main = io (onResult_ (readFile "demos/modules/app.tri")
      6   (problem : putStrLn (append "read-failed: " problem))
      7   (source : onResult_ (sourceLockBuild root "app" source)
      8     (problem : putStrLn (append "rejected: " problem))
      9     (_ : putStrLn "ACCEPTED-TAMPER")))
     10 main