{-# LANGUAGE TemplateHaskell #-}
module Test.Tasty.Lua.Module
( pushModule )
where
import Data.ByteString (ByteString)
import Data.FileEmbed
import Foreign.Lua (Lua, NumResults, Status (OK), dostring, throwTopMessage)
tastyScript :: ByteString
tastyScript :: ByteString
tastyScript = $(embedFile "tasty.lua")
pushModule :: Lua NumResults
pushModule :: Lua NumResults
pushModule = do
Status
result <- ByteString -> Lua Status
dostring ByteString
tastyScript
if Status
result Status -> Status -> Bool
forall a. Eq a => a -> a -> Bool
== Status
OK
then NumResults -> Lua NumResults
forall (m :: * -> *) a. Monad m => a -> m a
return NumResults
1
else Lua NumResults
forall a. Lua a
throwTopMessage
{-# INLINABLE pushModule #-}