From 4f0f5f09a6acbadd6e5b3ca2f0e2402d39a901a7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Thu, 17 Jul 2014 15:54:59 +0200 Subject: [PATCH] Remove `type Db` it's only used once and makes things less clear --- Language/Haskell/GhcMod/Find.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Language/Haskell/GhcMod/Find.hs b/Language/Haskell/GhcMod/Find.hs index cd0a6aa..403b7bc 100644 --- a/Language/Haskell/GhcMod/Find.hs +++ b/Language/Haskell/GhcMod/Find.hs @@ -46,9 +46,8 @@ import qualified Data.Map as M -- | Type of function and operation names. type Symbol = String -type Db = Map Symbol [ModuleString] -- | Database from 'Symbol' to \['ModuleString'\]. -newtype SymbolDb = SymbolDb Db +newtype SymbolDb = SymbolDb (Map Symbol [ModuleString]) ---------------------------------------------------------------- @@ -81,7 +80,7 @@ lookupSymbol opt sym db = convert opt $ lookupSymbol' sym db loadSymbolDb :: IO SymbolDb loadSymbolDb = SymbolDb <$> readSymbolDb -readSymbolDb :: IO Db +readSymbolDb :: IO (Map Symbol [ModuleString]) readSymbolDb = handle (\(SomeException _) -> return M.empty) $ do file <- chop <$> readProcess "ghc-mod" ["dumpsym"] [] M.fromAscList . map conv . lines <$> readFile file