X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=VHDLTypes.hs;h=54baf47ef4ba31ec20e3f73378afbfec19a779ea;hb=e523563c7a401c6190e803c21ff6609e3e675b2c;hp=948b3a1447b0320f01c2599b12b15875d8d4112d;hpb=b98d46bc13dc17a8783dbf844fb34fb9b0f2be49;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/VHDLTypes.hs b/VHDLTypes.hs
index 948b3a1..54baf47 100644
--- 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