{-|
Module      : HsLua.Core.Run
Copyright   : © 2007–2012 Gracjan Polak;
              © 2012–2016 Ömer Sinan Ağacan;
              © 2017-2021 Albert Krewinkel
License     : MIT
Maintainer  : Albert Krewinkel <tarleb+hslua@zeitkraut.de>
Stability   : beta
Portability : non-portable (depends on GHC)

Helper functions to run 'Lua' computations.
-}
module HsLua.Core.Run
  ( run
  , runEither
  , runWith
  ) where

import Control.Exception (bracket, try)
import HsLua.Core.Types (LuaE, runWith)

import qualified Control.Monad.Catch as Catch
import qualified HsLua.Core.Auxiliary as Lua
import qualified HsLua.Core.Primary as Lua

-- | Run Lua computation using the default HsLua state as starting
-- point. Exceptions are masked, thus avoiding some issues when using
-- multiple threads. All exceptions are passed through; error handling
-- is the responsibility of the caller.
run :: LuaE e a -> IO a
run :: LuaE e a -> IO a
run = (IO State
Lua.newstate IO State -> (State -> IO ()) -> (State -> IO a) -> IO a
forall a b c. IO a -> (a -> IO b) -> (a -> IO c) -> IO c
`bracket` State -> IO ()
Lua.close) ((State -> IO a) -> IO a)
-> (LuaE e a -> State -> IO a) -> LuaE e a -> IO a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (State -> LuaE e a -> IO a) -> LuaE e a -> State -> IO a
forall a b c. (a -> b -> c) -> b -> a -> c
flip State -> LuaE e a -> IO a
forall e a. State -> LuaE e a -> IO a
runWith (LuaE e a -> State -> IO a)
-> (LuaE e a -> LuaE e a) -> LuaE e a -> State -> IO a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LuaE e a -> LuaE e a
forall (m :: * -> *) a. MonadMask m => m a -> m a
Catch.mask_
{-# INLINABLE run #-}

-- | Run the given Lua computation; exceptions raised in Haskell code are
-- caught, but other exceptions (user exceptions raised in Haskell, unchecked
-- type errors, etc.) are passed through.
runEither :: Catch.Exception e => LuaE e a -> IO (Either e a)
runEither :: LuaE e a -> IO (Either e a)
runEither = IO a -> IO (Either e a)
forall e a. Exception e => IO a -> IO (Either e a)
try (IO a -> IO (Either e a))
-> (LuaE e a -> IO a) -> LuaE e a -> IO (Either e a)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LuaE e a -> IO a
forall e a. LuaE e a -> IO a
run
{-# INLINABLE runEither #-}