From 5451a2a586a6cc0d4db75a315dd0d050ee3f818d Mon Sep 17 00:00:00 2001
From: Anton-Latukha <anton.latukha@gmail.com>
Date: Sun, 6 Feb 2022 19:22:15 +0200
Subject: [PATCH] ghcide: Compile: m: upd

---
 ghcide/src/Development/IDE/Core/Compile.hs | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/ghcide/src/Development/IDE/Core/Compile.hs b/ghcide/src/Development/IDE/Core/Compile.hs
index 01ff2c139fc..ab78bc105c4 100644
--- a/ghcide/src/Development/IDE/Core/Compile.hs
+++ b/ghcide/src/Development/IDE/Core/Compile.hs
@@ -1048,21 +1048,7 @@ getDocsNonInteractive' name =
                     else Right (MS.lookup name dmap, MS.lookup name amap')
 
 -- | Non-interactive modification of 'GHC.Runtime.Eval.getDocs'.
-getDocsNonInteractive
-    :: HscEnv
-    -> Module
-    -> Name
-    -> IO
-      ( Either
-          GHC.ErrorMessages
-          ( Name
-          , Either
-            GetDocsFailure
-            ( Maybe HsDocString
-            , Maybe (IntMap HsDocString)
-            )
-          )
-      )
+getDocsNonInteractive :: HscEnv -> Module -> Name -> IO (Either GHC.ErrorMessages (Name, Either GetDocsFailure (Maybe HsDocString, Maybe (IntMap HsDocString))))
 getDocsNonInteractive hsc_env mod name =
     do
         let