From de5ff87f19cba6c5fdad083631b4be5afbfe8211 Mon Sep 17 00:00:00 2001 From: Nikolay Yakimov Date: Thu, 2 Jul 2015 13:19:57 +0300 Subject: [PATCH] Don't use infix call for type ctor --- Language/Haskell/GhcMod/Target.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Language/Haskell/GhcMod/Target.hs b/Language/Haskell/GhcMod/Target.hs index c577338..417080a 100644 --- 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