mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
25 lines
579 B
Haskell
25 lines
579 B
Haskell
|
module Repl.Value where
|
||
|
|
|
||
|
|
import Base
|
||
|
|
import Juvix.Compiler.Core qualified as Core
|
||
|
|
import Juvix.Compiler.Core.Language.Value qualified as Core
|
||
|
|
import Juvix.Extra.Strings qualified as Str
|
||
|
|
|
||
|
|
mkInteger :: Integer -> Core.Value
|
||
|
|
mkInteger = Core.ValueConstant . Core.ConstInteger
|
||
|
|
|
||
|
|
mkBool :: Bool -> Core.Value
|
||
|
|
mkBool b =
|
||
|
|
Core.ValueConstrApp
|
||
|
|
( Core.ConstrApp
|
||
|
|
{ _constrAppName = name,
|
||
|
|
_constrAppFixity = Irrelevant Nothing,
|
||
|
|
_constrAppArgs = []
|
||
|
|
}
|
||
|
|
)
|
||
|
|
where
|
||
|
|
name :: Text
|
||
|
|
name = case b of
|
||
|
|
True -> Str.true
|
||
|
|
False -> Str.false
|