From 72bc6f9b7f1873c3c97f848964f8fed42cac40c4 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Thu, 31 May 2018 00:16:39 -0400 Subject: [PATCH] whoops --- src/Control/Abstract/Primitive.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Control/Abstract/Primitive.hs b/src/Control/Abstract/Primitive.hs index 75db05e8e..f27202bd3 100644 --- a/src/Control/Abstract/Primitive.hs +++ b/src/Control/Abstract/Primitive.hs @@ -25,7 +25,7 @@ builtin :: ( HasCallStack -> Evaluator address value effects value -> Evaluator address value effects () builtin s def = withCurrentCallStack callStack $ do - let name' = name ("__semantic_" <> T.pack s) + let name' = name ("__semantic_" <> pack s) addr <- alloc name' bind name' addr def >>= assign addr @@ -53,4 +53,4 @@ defineBuiltins :: ( AbstractValue address value effects ) => Evaluator address value effects () defineBuiltins = - builtin "print" (lambda (\ v -> variable v >>= asString >>= trace . T.unpack >> pure unit)) + builtin "print" (lambda (\ v -> variable v >>= asString >>= trace . unpack >> pure unit))