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/Convert.hs
+++ b/Language/Haskell/GhcMod/Convert.hs
@@ -64,6 +64,10 @@ instance ToString [String] where
  toLisp  opt = toSexp1 opt
  toPlain opt = inter '\n' . map (toPlain opt)

+instance ToString [ModuleString] where
+  toLisp  opt = toLisp opt . map getModuleString
+  toPlain opt = toPlain opt . map getModuleString
+
 -- |
 --
 -- >>> let inp = [((1,2,3,4),"foo"),((5,6,7,8),"bar")] :: [((Int,Int,Int,Int),String)]