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