Prop reification/splitting

src/Shape/Data.hs

@@ -32,17 +32,17 @@ data ShapeObj = ShapeObj
     { _shType   :: ShapeType 
     , _shVs     :: [ShapeV]
     }
-  deriving ()
+  deriving (Eq,Ord,Show,Read)
 
 newtype ShapeType = TopPrism Int
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 
 -- edges are given by four consecutive points
 data ShapeV = ShapeV
     {_svPos :: Point3
     ,_svCol :: Point4
     }
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 pairToSV :: (Point3,Point4) -> ShapeV
 {-# INLINE pairToSV #-}
 pairToSV = uncurry ShapeV