Don't use infix call for type ctor

2015-07-02 13:19:57 +03:00 · 2015-07-02 13:19:57 +03:00 · de5ff87f19
parent 1efacbef88
commit de5ff87f19
1 changed files with 2 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Target.hs
+++ b/Language/Haskell/GhcMod/Target.hs
@ -179,7 +179,8 @@ runGmlTWith efnmns' mdf wrapper action = do
  where
    relativize (Target (TargetFile filePath phase) taoc src) = do
      crdl <- cradle
-      let tid = makeRelative (cradleRootDir crdl) filePath `TargetFile` phase
+      let tid = TargetFile relativeFilePath phase
+          relativeFilePath = makeRelative (cradleRootDir crdl) filePath
      return $ Target tid taoc src
    relativize tgt = return tgt