Cleanup + from(Left|Right)

1 files changed, 1 insertions, 4 deletions

diff --git a/ast.hs b/ast.hs
index 4862a92..11aeb9b 100644
--- a/ast.hs
+++ b/ast.hs
@@ -23,7 +23,7 @@ data AST = Number Double
          | Capture String
          | CaptureTerm String
          | CaptureConstr String AST  -- AST argument only for constructor; only WHNF
-         deriving (Eq,Typeable,Data)
+         deriving (Show,Read,Eq,Typeable,Data)
 
 instance PrettyPrint AST where
     prettyPrint (Number n) = show n
@@ -56,9 +56,6 @@ instance PrettyPrint AST where
 
     prettyPrint (CaptureConstr name c) = '[' : name ++ ":" ++ showConstr (toConstr c) ++ "]"
 
-instance Show AST where
-    show = prettyPrint
-
 instance NFData AST where
     rnf (Number !_) = ()
     rnf (Variable !_) = ()