@@ -861,7 +861,7 @@ addExtensionTests = testGroup "add language extension actions"
861861 executeCodeAction action
862862 contentAfterAction <- documentContents doc
863863 liftIO $ expectedContents @=? contentAfterAction
864−
864+
865865
866866insertNewDefinitionTests :: TestTree
867867insertNewDefinitionTests = testGroup "insert new definition actions"
@@ -1360,7 +1360,7 @@ completionTests
13601360 let source = T.unlines ["module A where", "f = hea"]
13611361 docId <- openDoc' "A.hs" "haskell" source
13621362 compls <- getCompletions docId (Position 1 7)
1363− liftIO $ map dropDocs compls @?=
1363+ liftIO $ map dropDocs compls @?=
13641364 [complItem "head" (Just CiFunction) (Just "[a] -> a")]
13651365 let [CompletionItem { _documentation = headDocs}] = compls
13661366 checkDocText "head" headDocs [ "Defined in 'Prelude'"
@@ -1372,12 +1372,12 @@ completionTests
13721372 let source = T.unlines ["module A where", "f = Tru"]
13731373 docId <- openDoc' "A.hs" "haskell" source
13741374 compls <- getCompletions docId (Position 1 7)
1375− liftIO $ map dropDocs compls @?=
1375+ liftIO $ map dropDocs compls @?=
13761376 [ complItem "True" (Just CiConstructor) (Just "Bool")
13771377#if MIN_GHC_API_VERSION(8,6,0)
13781378 , complItem "truncate" (Just CiFunction) (Just "(RealFrac a, Integral b) => a -> b")
13791379#else
1380− , complItem "truncate" (Just CiFunction) (Just "RealFrac a => forall b. Integral b => a -> b")
1380+ , complItem "truncate" (Just CiFunction) (Just "RealFrac a => forall b. Integral b => a -> b")
13811381#endif
13821382 ]
13831383 , testSessionWait "type" $ do
@@ -1403,7 +1403,7 @@ completionTests
14031403 expectDiagnostics [ ("A.hs", [(DsWarning, (2, 0), "not used")]) ]
14041404 changeDoc docId [TextDocumentContentChangeEvent Nothing Nothing $ T.unlines ["{-# OPTIONS_GHC -Wunused-binds #-}", "module A () where", "f = Prelude.hea"]]
14051405 compls <- getCompletions docId (Position 2 15)
1406− liftIO $ map dropDocs compls @?=
1406+ liftIO $ map dropDocs compls @?=
14071407 [complItem "head" (Just CiFunction) (Just "[a] -> a")]
14081408 let [CompletionItem { _documentation = headDocs}] = compls
14091409 checkDocText "head" headDocs [ "Defined in 'Prelude'"
@@ -1713,4 +1713,4 @@ openDoc' :: FilePath -> String -> T.Text -> Session TextDocumentIdentifier
17131713openDoc' fp name contents = do
17141714 res@(TextDocumentIdentifier uri) <- LSPTest.openDoc' fp name contents
17151715 sendNotification WorkspaceDidChangeWatchedFiles (DidChangeWatchedFilesParams $ List [FileEvent uri FcCreated])
1716− return res
1716+ return res