tricu

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

sourceBuildReceiptTamper.tri (288B)

      1 !import "source.object" !Local
      2 !import "prelude" !Local
      3 !import "io" !Local
      4 root = "__ROOT__"
      5 hash = "__HASH__"
      6 main = io (onResult_ (sourceObjectGet root "arboricx.build-receipt.v1" hash)
      7   (problem : putStrLn (append "rejected: " problem))
      8   (_ : putStrLn "ACCEPTED-BAD-RECEIPT"))
      9 main