anoma/juvix
1
1
Fork 0
mirror of https://github.com/anoma/juvix.git synced 2024-12-12 14:28:08 +03:00
Code Issues Projects Releases Wiki Activity

Remove code for Eval and Print statements (#2149)

Browse Source 
* Closes #2052
This commit is contained in:
Łukasz Czajka 2023-05-31 10:19:58 +02:00 committed by GitHub
parent 88c5dabb6d
commit b293e19ac9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 0 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/Juvix/Compiler/Concrete/Language.hs
View File

@ -1008,34 +1008,6 @@ deriving stock instance
) => ) =>
Ord (Iterator s) Ord (Iterator s)
--------------------------------------------------------------------------------
-- Debugging statements
--------------------------------------------------------------------------------
newtype Eval (s :: Stage) = Eval {evalExpression :: ExpressionType s}
deriving stock instance
(Show (ExpressionType s)) => Show (Eval s)
deriving stock instance
(Eq (ExpressionType s)) => Eq (Eval s)
deriving stock instance
(Ord (ExpressionType s)) => Ord (Eval s)
--------------------------------------------------------------------------------
newtype Print (s :: Stage) = Print {printExpression :: ExpressionType s}
deriving stock instance
(Show (ExpressionType s)) => Show (Print s)
deriving stock instance
(Eq (ExpressionType s)) => Eq (Print s)
deriving stock instance
(Ord (ExpressionType s)) => Ord (Print s)
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Expression atom -- Expression atom
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------

12
src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs
View File

@ -1014,18 +1014,6 @@ checkAxiomDef AxiomDef {..} = do
entryToSymbol :: SymbolEntry -> Symbol -> S.Symbol entryToSymbol :: SymbolEntry -> Symbol -> S.Symbol
entryToSymbol sentry csym = set S.nameConcrete csym (symbolEntryToSName sentry) entryToSymbol sentry csym = set S.nameConcrete csym (symbolEntryToSName sentry)
checkEval ::
(Members '[Error ScoperError, State Scope, State ScoperState, InfoTableBuilder, NameIdGen, Reader BindingStrategy] r) =>
Eval 'Parsed ->
Sem r (Eval 'Scoped)
checkEval (Eval s) = Eval <$> withLocalScope (checkParseExpressionAtoms s)
checkPrint ::
(Members '[Error ScoperError, State Scope, State ScoperState, InfoTableBuilder, NameIdGen, Reader BindingStrategy] r) =>
Print 'Parsed ->
Sem r (Print 'Scoped)
checkPrint (Print s) = Print <$> withLocalScope (checkParseExpressionAtoms s)
checkFunction :: checkFunction ::
forall r. forall r.
(Members '[Error ScoperError, State Scope, State ScoperState, InfoTableBuilder, NameIdGen] r) => (Members '[Error ScoperError, State Scope, State ScoperState, InfoTableBuilder, NameIdGen] r) =>