module Oughta.Hooks
  ( Hooks(..)
  , defaultHooks
  ) where

import HsLua (Lua)

data Hooks
  = Hooks
    { -- | Hook that runs before execution of the Lua program
      Hooks -> Lua ()
preHook :: Lua ()
      -- | Hook that runs after successful execution of the Lua program
    , Hooks -> Lua ()
postHook :: Lua ()
    }

defaultHooks :: Hooks
defaultHooks :: Hooks
defaultHooks =
  Hooks
  { preHook :: Lua ()
preHook = () -> Lua ()
forall a. a -> LuaE Exception a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()
  , postHook :: Lua ()
postHook = () -> Lua ()
forall a. a -> LuaE Exception a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()
  }