Fix warning
authorMatthías Páll Gissurarson <pallm@chalmers.se>
Fri, 24 May 2019 11:37:02 +0000 (13:37 +0200)
committerMatthías Páll Gissurarson <pallm@chalmers.se>
Fri, 24 May 2019 11:37:02 +0000 (13:37 +0200)
compiler/typecheck/TcHoleErrors.hs

index 0dfe992..93919ec 100644 (file)
@@ -464,7 +464,7 @@ addDocs fits =
 -- refinement level.
 pprHoleFit :: HoleFitDispConfig -> HoleFit -> SDoc
 pprHoleFit _ (RawHoleFit sd) = sd
-pprHoleFit (HFDC sWrp sWrpVars sTy sProv sMs) hf@(HoleFit {..}) =
+pprHoleFit (HFDC sWrp sWrpVars sTy sProv sMs) (HoleFit {..}) =
  hang display 2 provenance
  where name =  getName hfCand
        tyApp = sep $ map ((text "@" <>) . pprParendType) hfWrap