clean up lookupSymbol.

2014-07-18 15:13:30 +09:00
parent 6d42354a5b
commit e1d9c3b881
3 changed files with 10 additions and 10 deletions
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@@ -190,8 +190,7 @@ findSym :: IOish m => Set FilePath -> String -> MVar SymbolDb
        -> GhcModT m (String, Bool, Set FilePath)
 findSym set sym mvar = do
    db <- liftIO $ readMVar mvar
-    opt <- options
-    let ret = lookupSymbol opt sym db
+    ret <- lookupSymbol sym db
    return (ret, True, set)

 lintStx :: IOish m => Set FilePath