hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add Module type

Browse Source
This commit is contained in:
Daniel Gröber 2014-07-11 05:44:31 +02:00
parent d818a64f6f
commit 9f94bc863c
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/Browse.hs
View File

@ -10,7 +10,7 @@ import Data.List (sort)
import Data.Maybe (catMaybes) import Data.Maybe (catMaybes)
import Exception (ghandle) import Exception (ghandle)
import FastString (mkFastString) import FastString (mkFastString)
import GHC (GhcException(CmdLineError), ModuleInfo, Name, TyThing, DynFlags, Type, TyCon, Module) import GHC (GhcException(CmdLineError), ModuleInfo, Name, TyThing, DynFlags, Type, TyCon)
import qualified GHC as G import qualified GHC as G
import Language.Haskell.GhcMod.Doc (showPage, showOneLine, styleUnqualified) import Language.Haskell.GhcMod.Doc (showPage, showOneLine, styleUnqualified)
import Language.Haskell.GhcMod.GHCApi import Language.Haskell.GhcMod.GHCApi
@ -144,7 +144,7 @@ browseAll dflag = do
is <- mapM G.getModuleInfo ms is <- mapM G.getModuleInfo ms
return $ concatMap (toNameModule dflag) (zip ms is) return $ concatMap (toNameModule dflag) (zip ms is)
toNameModule :: DynFlags -> (Module, Maybe ModuleInfo) -> [(String,String)] toNameModule :: DynFlags -> (G.Module, Maybe ModuleInfo) -> [(String,String)]
toNameModule _ (_,Nothing) = [] toNameModule _ (_,Nothing) = []
toNameModule dflag (m,Just inf) = map (\name -> (toStr name, mdl)) names toNameModule dflag (m,Just inf) = map (\name -> (toStr name, mdl)) names
where where

3
Language/Haskell/GhcMod/Types.hs
View File

@ -93,6 +93,9 @@ type Expression = String
-- | Module name. -- | Module name.
type ModuleString = String type ModuleString = String
-- | A Module
type Module = [String]
-- | Option information for GHC -- | Option information for GHC
data CompilerOptions = CompilerOptions { data CompilerOptions = CompilerOptions {
ghcOptions :: [GHCOption] -- ^ Command line options ghcOptions :: [GHCOption] -- ^ Command line options