Development.IDE.Spans.Documentation: getDocumentationsTryGhc: use Map

Author: Anton-Latukha

ghcide/src/Development/IDE/Spans/Documentation.hs

@@ -65,21 +65,21 @@ lookupKind env mod =
     fmap (fromRight Nothing) . catchSrcErrors (hsc_dflags env) "span" . lookupName env mod
 
 getDocumentationTryGhc :: HscEnv -> Module -> Name -> IO SpanDoc
-getDocumentationTryGhc env mod n = fmap head ((fmap . fmap) snd $ getDocumentationsTryGhc env mod [n])
+getDocumentationTryGhc env mod n = fmap head ((fmap . fmap) snd $ fmap Map.toList $ getDocumentationsTryGhc env mod [n])
 
-getDocumentationsTryGhc :: HscEnv -> Module -> [Name] -> IO [(Name, SpanDoc)]
+getDocumentationsTryGhc :: HscEnv -> Module -> [Name] -> IO (Map.Map Name SpanDoc)
 getDocumentationsTryGhc env mod names = do
   res <- fun
   case res of
-      Left _    -> return []
-      Right res -> sequenceA $ unwrap <$> Map.toList res
+      Left _    -> return mempty
+      Right res -> fmap Map.fromList $ sequenceA $ unwrap <$> Map.toList res
   where
     fun :: IO (Either [FileDiagnostic] (Map.Map Name (Either String (Maybe HsDocString, Map.Map Int HsDocString))))
     fun = catchSrcErrors (hsc_dflags env) "docs" $ getDocsBatch env mod names
 
     unwrap :: (Name,  Either a (Maybe HsDocString, b)) -> IO (Name, SpanDoc)
     unwrap (name, Right (Just docs, _)) = (name,) . SpanDocString docs <$> getUris name
-    unwrap (name, _)                    = (name,) . SpanDocText [] <$> getUris name
+    unwrap (name, _)                    = (name,) . SpanDocText mempty <$> getUris name
 
     -- Get the uris to the documentation and source html pages if they exist
     getUris name = do