Merge pull request #159 from mvoidex/master

Added project opt to specify module package-id

Language/Haskell/GhcMod/Browse.hs

@@ -6,6 +6,7 @@ import Data.Char
 import Data.List
 import Data.Maybe (fromMaybe)
 import DataCon (dataConRepType)
+import FastString (mkFastString)
 import GHC
 import Language.Haskell.GhcMod.Doc (showUnqualifiedPage)
 import Language.Haskell.GhcMod.GHCApi
@@ -50,7 +51,7 @@ browse opt cradle mdlName = do
     void $ initializeFlagsWithCradle opt cradle [] False
     getModule >>= getModuleInfo >>= listExports
   where
-    getModule = findModule (mkModuleName mdlName) Nothing
+    getModule = findModule (mkModuleName mdlName) (mkFastString <$> packageId opt)
     listExports Nothing       = return []
     listExports (Just mdinfo)
       | detailed opt = processModule mdinfo

Language/Haskell/GhcMod/Types.hs

@@ -21,6 +21,8 @@ data Options = Options {
   , expandSplice  :: Bool
   -- | Line separator string.
   , lineSeparator :: LineSeparator
+  -- | Package id of module
+  , packageId :: Maybe String
   }
 
 -- | A default 'Options'.
@@ -33,6 +35,7 @@ defaultOptions = Options {
   , detailed      = False
   , expandSplice  = False
   , lineSeparator = LineSeparator "\0"
+  , packageId     = Nothing
   }
 
 ----------------------------------------------------------------