From d361b5cb163316d4e0c56cab30301e18b548afff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 19 Apr 2026 21:02:51 +0200
Subject: Arbitrary expressions as variable values

---
 src/Process/Signal.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Process')

diff --git a/src/Process/Signal.hs b/src/Process/Signal.hs
index f6619f6..e57b68d 100644
--- a/src/Process/Signal.hs
+++ b/src/Process/Signal.hs
@@ -51,8 +51,8 @@ instance ExprType Signal where
         | otherwise = "<SIG_" <> T.pack (show sig) <> ">"
 
 
-signalBuiltins :: [ ( Text, SomeVarValue ) ]
-signalBuiltins = map (fmap someConstValue)
+signalBuiltins :: [ ( Text, SomeExpr ) ]
+signalBuiltins = map (fmap $ SomeExpr . Pure)
     [ ( "SIGHUP", Signal Posix.sigHUP )
     , ( "SIGINT", Signal Posix.sigINT )
     , ( "SIGQUIT", Signal Posix.sigQUIT )
-- 
cgit v1.2.3