From 42afa46f1d539d41087e4ee9fa06efa2440e9bde Mon Sep 17 00:00:00 2001
From: Artem Pelenitsyn <a.pelenitsyn@gmail.com>
Date: Tue, 18 Jun 2024 12:51:35 +0000
Subject: [PATCH] EXPERIMENT, DON'T MERGE: see if Read instance exercised by
 the test suite

---
 gibbon-compiler/src/Gibbon/Common.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gibbon-compiler/src/Gibbon/Common.hs b/gibbon-compiler/src/Gibbon/Common.hs
index 09d440cf..02f373c5 100644
--- a/gibbon-compiler/src/Gibbon/Common.hs
+++ b/gibbon-compiler/src/Gibbon/Common.hs
@@ -73,7 +73,7 @@ newtype Symbol = Symbol InternedString
   deriving (Eq, Ord, Show)
 
 instance Read Symbol where
-  readsPrec _ s = [(Symbol $ DI.intern s, "")]
+  readsPrec _ s = undefined -- TODO: fixme [(Symbol $ DI.intern s, "")]
 
 instance IsString Symbol where
   fromString = intern