Don't expose Convert

This commit is contained in:
Daniel Gröber
2014-05-14 18:54:56 +02:00
parent 80e2761f2f
commit 8324dd96ae
5 changed files with 8 additions and 6 deletions

View File

@@ -35,7 +35,6 @@ import GHC (Ghc)
import qualified GHC as G
import Language.Haskell.GhcMod
import Language.Haskell.GhcMod.Ghc
import Language.Haskell.GhcMod.Convert (convert')
import Language.Haskell.GhcMod.Monad
import Language.Haskell.GhcMod.Internal
import Paths_ghc_mod
@@ -204,7 +203,8 @@ findSym :: Set FilePath -> String -> MVar SymMdlDb
-> GhcMod (String, Bool, Set FilePath)
findSym set sym mvar = do
db <- liftIO $ readMVar mvar
ret <- convert' $ lookupSym sym db
opt <- options
let ret = lookupSym' opt sym db
return (ret, True, set)
lintStx :: Options -> Set FilePath -> FilePath