diff --git a/Language/Haskell/GhcMod/FillSig.hs b/Language/Haskell/GhcMod/FillSig.hs
index 246baaa..1f65f93 100644
--- a/Language/Haskell/GhcMod/FillSig.hs
+++ b/Language/Haskell/GhcMod/FillSig.hs
@@ -356,8 +356,8 @@ refine file lineNo colNo (Expression expr) =
                 diffArgs' = length eArgs - length rArgs
                 diffArgs  = if diffArgs' < 0 then 0 else diffArgs'
                 iArgs = take diffArgs eArgs
-                text = initialHead1 expr iArgs (infinitePrefixSupply name)
-             in (fourInts loc, doParen paren text)
+                txt = initialHead1 expr iArgs (infinitePrefixSupply name)
+             in (fourInts loc, doParen paren txt)
   where
    handler (SomeException ex) = do
      gmLog GmDebug "refining" $