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

Moving commands to Ghc monad

Browse Source
This commit is contained in:
mvoidex
2013-05-19 01:16:37 +04:00
parent bac4bbbcf3
commit f2f3b120af
7 changed files with 42 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,4 +1,4 @@
module Language.Haskell.GhcMod.Browse (browseModule) where
module Language.Haskell.GhcMod.Browse (browseModule, browse) where
import Control.Applicative
import Data.Char
@@ -17,7 +17,7 @@ import Var
----------------------------------------------------------------
browseModule :: Options -> String -> IO String
browseModule :: Options -> String -> Ghc String
browseModule opt mdlName = convert opt . format <$> browse opt mdlName
where
format
@@ -32,8 +32,8 @@ browseModule opt mdlName = convert opt . format <$> browse opt mdlName
(name, tail_) = break isSpace x
formatOps' [] = error "formatOps'"
browse :: Options -> String -> IO [String]
browse opt mdlName = withGHCDummyFile $ do
browse :: Options -> String -> Ghc [String]
browse opt mdlName = do
initializeFlags opt
getModule >>= getModuleInfo >>= listExports
where