Derive Eq and Read for SS

alogic0 · Jun 22, 2010 · 5fb90c2 · 5fb90c2
1 parent 2165b0a
commit 5fb90c2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Parsec.hs b/Parsec.hs
@@ -27,10 +27,10 @@ data SS = SS
     , hereDocs       :: I.IntMap Word
     , numHereDocs    :: Int
     }
-    deriving Show
+    deriving (Show,Read,Eq)
 type HereDocHandle = (String, Int, HereDocQuoted)
 data HereDocQuoted = HereDocQuoted | HereDocNotQuoted
-    deriving Show
+    deriving (Show,Read,Eq)
 
 -- put here-docs delimeter into the queue
 -- returns unique number by which the contents of here-doc may be accessed later