1 files changed, 13 insertions, 12 deletions
diff --git a/src/Language/Fiddle/GenericTree.hs b/src/Language/Fiddle/GenericTree.hs
index ef53e31..01549b7 100644
--- a/src/Language/Fiddle/GenericTree.hs
+++ b/src/Language/Fiddle/GenericTree.hs
@@ -33,7 +33,8 @@ type Context stage =
   ( Show (NumberType stage),
     Typeable stage,
     ToGenericSyntaxTreeValue (NumberType stage),
-    Show (ImportInterface stage)
+    Show (ImportInterface stage),
+    Show (FiddleUnitInterface stage)
   )
 
 data GenericSyntaxTree f a where
@@ -79,17 +80,17 @@ instance (ToJSON a) => ToJSON (Commented a) where
   toJSON (Commented comment a) =
     object ["comment" .= comment, "annot" .= a]
 
-instance ToJSON SourceSpan where
-  toJSON (SourceSpan start end) =
-    object ["start" .= toJSON start, "end" .= toJSON end]
-
-instance ToJSON SourcePos where
-  toJSON sourcePos =
-    object
-      [ "name" .= sourceName sourcePos,
-        "row" .= sourceLine sourcePos,
-        "col" .= sourceColumn sourcePos
-      ]
+-- instance ToJSON SourceSpan where
+--   toJSON (SourceSpan start end) =
+--     object ["start" .= toJSON start, "end" .= toJSON end]
+-- 
+-- instance ToJSON SourcePos where
+--   toJSON sourcePos =
+--     object
+--       [ "name" .= sourceName sourcePos,
+--         "row" .= sourceLine sourcePos,
+--         "col" .= sourceColumn sourcePos
+--       ]
 
 instance (Foldable f) => ToJSON (GenericSyntaxTree f (Maybe Value)) where
   toJSON = \case