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/FillSig.hs
+++ b/Language/Haskell/GhcMod/FillSig.hs
@@ -336,7 +336,7 @@ refine :: IOish m
       -> Int          -- ^ Column number.
       -> Expression   -- ^ A Haskell expression.
       -> GhcModT m String
-refine file lineNo colNo expr =
+refine file lineNo colNo (Expression expr) =
  ghandle handler $
    runGmlT' [Left file] deferErrors $ do
      opt <- options