@@ -370,14 +370,6 @@ handleBrowse moduleName = do
370370 signatures :: P.Module -> [String]
371371 signatures (P.Module _ ds _) = mapMaybe getSignature ds
372372
373− -- names :: [P.Module] -> [String]
374− -- names ms = nub [ show qual
375− -- | P.Module moduleName ds exts <- ms
376− -- , ident <- mapMaybe (getDeclName exts) ds
377− -- , qual <- [ P.Qualified Nothing ident
378− -- , P.Qualified (Just moduleName) ident]
379− -- ]
380−
381373 readModuleTypes :: [(FilePath, D.Module)] -> Either String FilePath -> IO String
382374 readModuleTypes [] _ = return "No module(s) loaded."
383375 readModuleTypes _ (Left err) = return err