remove warning

fffej · fffej · commit e837f7383c7b · 2015-07-19T09:35:58.000+01:00
diff --git a/src/Database/SqlServer/Definitions/Identifiers.hs b/src/Database/SqlServer/Definitions/Identifiers.hs
@@ -34,7 +34,7 @@ unwrap (RegularIdentifier x) = "UUID_" ++ xstr
 renderRegularIdentifier :: RegularIdentifier -> Doc
 renderRegularIdentifier = text . unwrap 
 
-newtype ParameterIdentifier = ParameterIdentifier { unwrapP :: RegularIdentifier }
+newtype ParameterIdentifier = ParameterIdentifier RegularIdentifier
 
 derive makeArbitrary ''ParameterIdentifier
 
