Output a package containing all type declarations.

[matthijs/master-project/cλash.git] / VHDLTypes.hs

diff --git a/VHDLTypes.hs b/VHDLTypes.hs
index 948b3a1447b0320f01c2599b12b15875d8d4112d..54baf47ef4ba31ec20e3f73378afbfec19a779ea 100644 (file)
--- a/VHDLTypes.hs
+++ b/VHDLTypes.hs
@@ -34,7 +34,7 @@ data Entity = Entity {
 } deriving (Show);
 
 -- A orderable equivalent of CoreSyn's Type for use as a map key
-newtype OrdType = OrdType Type.Type
+newtype OrdType = OrdType { getType :: Type.Type }
 instance Eq OrdType where
   (OrdType a) == (OrdType b) = Type.tcEqType a b
 instance Ord OrdType where