X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=NormalizeTypes.hs;h=56cba91a411666a078e0eed852ffe5c084fea0f9;hb=aa23b0116eaf65b01499cd1eba93a92f7c8c36e8;hp=89ed53d41746d871924bf56ba02787d7e475b961;hpb=c8034ff49822eb6e0e0696f288e20e49a1b9af6e;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/NormalizeTypes.hs b/NormalizeTypes.hs
index 89ed53d..56cba91 100644
--- a/NormalizeTypes.hs
+++ b/NormalizeTypes.hs
@@ -28,8 +28,6 @@ data TransformState = TransformState {
   , tsNormalized_ :: VarSet.VarSet -- ^ The binders that have been normalized
   , tsType_ :: TypeState
 }
--- Create an (almost) empty TransformState, containing just a UniqSupply.
-emptyTransformState uniqSupply = TransformState uniqSupply Map.empty VarSet.emptyVarSet emptyTypeState
 
 $( Data.Accessor.Template.deriveAccessors ''TransformState )