haskellFn1 ::
  (FromLuaStack a, ToHaskellFunction (Lua b)) =>
  GrLangState -> (a -> ExceptT GrLang.Error LuaGrLang b) -> Lua ()
haskellFn1 globalState f = pushFunction (runGrLang' globalState . f)
haskellFn1 ::
  (FromLuaStack a, ToHaskellFunction (Lua b)) =>
  GrLangState -> (a -> ExceptT GrLang.Error LuaGrLang b) -> Lua ()
haskellFn1 globalState f = pushFunction (runGrLang' globalState . f)
haskellFn1 globalState f = pushFunction (runGrLang' globalState . f)