From 60ff47250b5064c38b8f4889766696cb4a5683b0 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Wed, 14 Dec 2022 19:47:41 +0100 Subject: slight cleanup, metacall --- app/Env.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'app/Env.hs') diff --git a/app/Env.hs b/app/Env.hs index e873711..82bf9d0 100644 --- a/app/Env.hs +++ b/app/Env.hs @@ -1,6 +1,6 @@ module Env where -import Code (Interp(..), PrlgEnv) +import Code (Interp(..), InterpFn, PrlgEnv) import Control.Monad.Trans.State.Lazy (gets, modify) import qualified IR @@ -20,3 +20,6 @@ findAtom :: String -> Env.PrlgEnv Int findAtom = withStrTable . flip IR.strtablize type PrlgEnv a = Code.PrlgEnv a + +prlgError :: String -> InterpFn +prlgError = pure . pure . Left -- cgit v1.2.3