ghc-mod find (#203).

Language/Haskell/GhcMod.hs

@@ -24,12 +24,14 @@ module Language.Haskell.GhcMod (
   , debugInfo
   , rootInfo
   , packageDoc
+  , findSymbol
   ) where
 
 import Language.Haskell.GhcMod.Browse
 import Language.Haskell.GhcMod.Check
 import Language.Haskell.GhcMod.Cradle
 import Language.Haskell.GhcMod.Debug
+import Language.Haskell.GhcMod.Find
 import Language.Haskell.GhcMod.Flag
 import Language.Haskell.GhcMod.Info
 import Language.Haskell.GhcMod.Lang

Language/Haskell/GhcMod/Find.hs

@@ -2,14 +2,15 @@
 
 module Language.Haskell.GhcMod.Find where
 
+import Control.Monad (void)
 import Data.Function (on)
 import Data.List (groupBy, sort)
 import Data.Maybe (fromMaybe)
 import GHC (Ghc)
 import qualified GHC as G
-import Language.Haskell.GhcMod
 import Language.Haskell.GhcMod.Browse (browseAll)
-import Language.Haskell.GhcMod.Types (convert)
+import Language.Haskell.GhcMod.GHCApi
+import Language.Haskell.GhcMod.Types
 
 #ifndef MIN_VERSION_containers
 #define MIN_VERSION_containers(x,y,z) 1
@@ -23,12 +24,18 @@ import qualified Data.Map.Strict as M
 import Data.Map (Map)
 import qualified Data.Map as M
 #endif
+import Control.Applicative ((<$>))
 
 -- | Type of key for `SymMdlDb`.
 type Symbol = String
 -- | Database from 'Symbol' to modules.
 newtype SymMdlDb = SymMdlDb (Map Symbol [ModuleString])
 
+findSymbol :: Options -> Cradle -> Symbol -> IO String
+findSymbol opt cradle sym = withGHC' $ do
+    void $ initializeFlagsWithCradle opt cradle [] False
+    lookupSym opt sym <$> getSymMdlDb
+
 -- | Creating 'SymMdlDb'.
 getSymMdlDb :: Ghc SymMdlDb
 getSymMdlDb = do