Merge pull request #1286 from GambolingPangolin/disambiguate-import

Qualifies use of (!?) in order to build against extra 1.7.10
ndmitchell · Aug 29, 2021 · f4f30f8 · f4f30f8
2 parents 920a58f + bbfccca
commit f4f30f8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hint/Fixities.hs b/src/Hint/Fixities.hs
@@ -62,7 +62,7 @@ redundantInfixBracket fixities i parent child
             | i == 0 = (c, p)
             | otherwise = (p, c)
     in
-    case compareFixity <$> (fixities !? occNameString lop) <*> (fixities !? occNameString rop) of
+    case compareFixity <$> (fixities Data.Map.!? occNameString lop) <*> (fixities Data.Map.!? occNameString rop) of
     Just (False, r)
         | i == 0 -> not (needParenAsChild cr || r)
         | otherwise -> r