23 lines
411 B
Haskell
23 lines
411 B
Haskell
|
module Main (main) where
|
||
|
|
|
||
|
|
import Control.Exception (handle)
|
||
|
|
|
||
|
|
import System.Plugins
|
||
|
|
|
||
|
|
import API
|
||
|
|
|
||
|
|
fexn :: IOError -> IO ()
|
||
|
|
fexn = print
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = handle fexn $ do
|
||
|
|
mf <- load "../TestIO.o" ["../api"] [] "resource"
|
||
|
|
case mf of
|
||
|
|
LoadFailure _ -> error "nope"
|
||
|
|
LoadSuccess _ v -> do
|
||
|
|
putStrLn "success"
|
||
|
|
engage v
|
||
|
|
|
||
|
|
engage :: CLIInterface -> IO ()
|
||
|
|
engage plugin = repl plugin
|