Revert the change in ghcide tests

Author: jhrcek

ghcide/test/exe/Main.hs

@@ -4937,8 +4937,7 @@ projectCompletionTests =
               "import ALocal"
             ]
         compls <- getCompletions doc (Position 1 13)
-        --
-        item <- getCompletionByLabel "ALocalModule" compls
+        let item = head $ filter ((== "ALocalModule") . (^. Lens.label)) compls
         liftIO $ do
           item ^. Lens.label @?= "ALocalModule",
       testSession' "auto complete functions from qualified imports without alias" $ \dir-> do

hls-test-utils/src/Test/Hls/Util.hs

@@ -456,4 +456,4 @@ getCompletionByLabel desiredLabel compls =
         Just c -> pure c
         Nothing -> liftIO . assertFailure $
             "Completion with label " <> show desiredLabel
-            <> " not found in " <> show (fmap (^. L.label) compls)
+            <> " not found in " <> show (fmap (^. L.label) compls)