mirror of
https://github.com/extism/extism.git
synced 2026-01-09 13:57:55 -05:00
18 lines
484 B
Haskell
18 lines
484 B
Haskell
module Main where
|
|
|
|
import System.Exit (exitFailure, exitSuccess)
|
|
import qualified Data.ByteString as B
|
|
import Extism
|
|
import Extism.Manifest
|
|
|
|
main = do
|
|
plugin <- Extism.registerManifest (manifest [wasmFile "../wasm/code.wasm"]) False
|
|
res <- Extism.call plugin "count_vowels" (Extism.toByteString "this is a test")
|
|
case res of
|
|
Right (Error msg) -> do
|
|
_ <- putStrLn msg
|
|
exitFailure
|
|
Left bs -> do
|
|
_ <- putStrLn (Extism.fromByteString bs)
|
|
exitSuccess
|