[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / real / anna / BaseDefs.hs
index 00bc9fa..73600eb 100644 (file)
@@ -253,7 +253,7 @@ data Domain = Two
             | Lift1 [Domain]
             | Lift2 [Domain]
             | Func  [Domain] Domain
-              deriving (Eq, Ord, Show{-was:Text-})
+              deriving (Eq, Ord, Show, Read)
 
 data Route = Zero
            | One