diff options
Diffstat (limited to 'compiler/GHC/Tc/Errors/Hole.hs')
| -rw-r--r-- | compiler/GHC/Tc/Errors/Hole.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/GHC/Tc/Errors/Hole.hs b/compiler/GHC/Tc/Errors/Hole.hs index 600a84eb94..06a75e2a1f 100644 --- a/compiler/GHC/Tc/Errors/Hole.hs +++ b/compiler/GHC/Tc/Errors/Hole.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ExistentialQuantification #-} {-# OPTIONS_GHC -Wno-incomplete-record-updates #-} @@ -779,7 +780,9 @@ tcFilterHoleFits limit typed_hole ht@(hole_ty, _) candidates = Just (dataConWrapId con, dataConNonlinearType con) _ -> Nothing } where name = case hfc of +#if __GLASGOW_HASKELL__ <= 810 IdHFCand id -> idName id +#endif GreHFCand gre -> gre_name gre NameHFCand name -> name discard_it = go subs seen maxleft ty elts |