diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2022-12-14 19:47:41 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2022-12-14 19:47:41 +0100 |
| commit | 60ff47250b5064c38b8f4889766696cb4a5683b0 (patch) | |
| tree | eddd52364cd1b2fbfd7219061a5ed5b9c846711e /app/Env.hs | |
| parent | 32f6fe0291e289c88d29710e42da3e6aca47a3fa (diff) | |
| download | prlg-60ff47250b5064c38b8f4889766696cb4a5683b0.tar.gz prlg-60ff47250b5064c38b8f4889766696cb4a5683b0.tar.bz2 | |
slight cleanup, metacall
Diffstat (limited to 'app/Env.hs')
| -rw-r--r-- | app/Env.hs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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 |