Transform ModuleString and Expression type synonyms into newtypes

2015-06-01 18:10:37 +03:00
parent 6a65701397
commit 7b6eb55b11
10 changed files with 27 additions and 18 deletions
--- a/Language/Haskell/GhcMod/Find.hs
+++ b/Language/Haskell/GhcMod/Find.hs
@@ -133,9 +133,10 @@ extractBindings :: (Maybe G.ModuleInfo, G.Module)
                -> [(Symbol, ModuleString)]
 extractBindings (Nothing,  _)   = []
 extractBindings (Just inf, mdl) =
-  map (\name -> (getOccString name, moduleNameString $ moduleName mdl)) names
+  map (\name -> (getOccString name, modStr)) names
  where
-    names = G.modInfoExports inf
+    names  = G.modInfoExports inf
+    modStr = ModuleString $ moduleNameString $ moduleName mdl

 collectModules :: [(Symbol, ModuleString)]
               -> [(Symbol, [ModuleString])]