!import "prelude"   !Local
!import "io"        !Local
!import "arboricx"  !Local

-- Read an Arboricx bundle from disk and execute it.
-- This demo loads test/fixtures/id.arboricx and applies the
-- default export to the string "hi".  The id bundle simply
-- returns its argument, so the expected output is:
--   hi
--
-- Run with --allow-read test/fixtures/id.arboricx or --unsafe-io.

runBundle = (path arg :
  bind (readFile path)
    (result :
      matchResult
        (err rest : putStrLn "ERROR: Could not read bundle file")
        (bundleBytes rest :
          matchResult
            (err rest : putStrLn "ERROR: Could not execute bundle")
            (value rest : putStrLn value)
            (runArboricx bundleBytes arg))
        result))

main = io (runBundle "test/fixtures/id.arboricx" "hi")