Qualify !? so it doesn't conflict with extra

ndmitchell · ndmitchell · commit 620da73bc474 · 2021-08-30T21:25:36.000+01:00
diff --git a/CHANGES.txt b/CHANGES.txt
@@ -1,5 +1,6 @@
 Changelog for Hoogle (* = API change, @ = database format change)
 
+    Compatibility with extra-1.7.10
     #370, add --jsonl to produce JSON on separate lines
 5.0.18.1, released 2020-12-27
     #365, add flag to disable network tests
diff --git a/src/Action/Server.hs b/src/Action/Server.hs
@@ -163,7 +163,7 @@ replyServer log local links haddock store cdn home htmlDir scope Input{..} = cas
         html = templateMarkup
         text = templateMarkup . H.string
 
-        tagOptions sel = mconcat [H.option !? (x `elem` sel, H.selected "selected") $ H.string x | x <- completionTags store]
+        tagOptions sel = mconcat [H.option Text.Blaze.!? (x `elem` sel, H.selected "selected") $ H.string x | x <- completionTags store]
         params =
             [("cdn", text cdn)
             ,("home", text home)
