From e7bc7e0e31a97c332d515cbb8f4240d3e4c612a7 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 12 Dec 2018 09:46:11 -0500 Subject: [PATCH] Spacing. --- src/Control/Abstract/Value.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Control/Abstract/Value.hs b/src/Control/Abstract/Value.hs index d61c8ec03..3a7645c70 100644 --- a/src/Control/Abstract/Value.hs +++ b/src/Control/Abstract/Value.hs @@ -215,6 +215,7 @@ runUnit :: Carrier (Unit value :+: sig) (UnitC value (Eff m)) -> Evaluator term address value m a runUnit = raiseHandler $ runUnitC . interpret + data String value (m :: * -> *) k = String Text (value -> k) | AsString value (Text -> k)