List modules with its packages

Language/Haskell/GhcMod/List.hs

@@ -5,6 +5,7 @@ import Data.List
 import GHC
 import Language.Haskell.GhcMod.GHCApi
 import Language.Haskell.GhcMod.Types
+import Distribution.Text (display)
 import Packages
 import UniqFM
 
@@ -12,14 +13,20 @@ import UniqFM
 
 -- | Listing installed modules.
 listModules :: Options -> IO String
-listModules opt = convert opt . nub . sort <$> withGHCDummyFile (listMods opt)
+listModules opt = convert opt . nub . sort . map dropPkgs <$> withGHCDummyFile (listMods opt) where
+  dropPkgs (name, pkg)
+    | detailed opt = name ++ " " ++ pkg
+    | otherwise = name
 
 -- | Listing installed modules.
-listMods :: Options -> Ghc [String]
+listMods :: Options -> Ghc [(String, String)]
 listMods opt = do
     initializeFlags opt
     getExposedModules <$> getSessionDynFlags
   where
-    getExposedModules = map moduleNameString
-                      . concatMap exposedModules
+    getExposedModules = concatMap exposedModules'
                       . eltsUFM . pkgIdMap . pkgState
+    exposedModules' p =
+    	map moduleNameString (exposedModules p)
+    	`zip`
+    	repeat (display $ sourcePackageId p)