From b4b89842cfcaf8b6cf4539813106b21ee04e97fc Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Thu, 21 Nov 2024 18:09:17 -0600 Subject: [PATCH] add TODO linked to #2213 --- src/swarm-lang/Swarm/Language/JSON.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/swarm-lang/Swarm/Language/JSON.hs b/src/swarm-lang/Swarm/Language/JSON.hs index 67e8e413f..2e41b13c8 100644 --- a/src/swarm-lang/Swarm/Language/JSON.hs +++ b/src/swarm-lang/Swarm/Language/JSON.hs @@ -32,6 +32,9 @@ instance ToJSON Syntax instance ToJSON Value where toJSON = genericToJSON optionsMinimize +-- TODO (#2213): Craft some appropriate FromJSONE instances for things +-- like Value and Env. Below is an early experiment. + -- instance FromJSONE (CtxMap CtxTree t) Value where -- parseJSONE = withObjectE "Value" $ \v -> case Ae.toList v of -- [("VUnit", _)] -> pure VUnit