Scripting with Haskell

Main.hs

module Main where

import System.Eval

runScript :: FilePath -> (String -> IO ()) -> IO ()
runScript pth printer = do
	codes <- readFile pth
	Right (Just scriptMain) <- eval_ codes [] ["-O2", "-w"] [] []
	scriptMain printer

main :: IO ()
main = runScript "./Script.hs" putStrLn

Script.hs

(\printer ->
	printer "hello"
) :: (String -> IO ()) -> IO ()