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