Format type applications of QuasiQuotes correctly

Author: amesgen

CHANGELOG.md

@@ -3,6 +3,9 @@
 * Format multiple files in parallel. [Issue
   1128](https://github.com/tweag/ormolu/issues/1128).
 
+* Correctly format type applications of `QuasiQuotes`. [Issue
+  1134](https://github.com/tweag/ormolu/issues/1134).
+
 ## Ormolu 0.7.7.0
 
 * Use single-line layout for parens around single-line content. [Issue

data/examples/declaration/value/function/type-applications-out.hs

@@ -22,3 +22,5 @@ test x = case x of
     @u
     v ->
       ""
+
+foo = foo @[k|bar|]

data/examples/declaration/value/function/type-applications.hs

@@ -17,3 +17,5 @@ test x = case x of
   Bar
    @t @u v
     -> ""
+
+foo = foo @[k|bar|]

src/Ormolu/Printer/Meat/Declaration/Value.hs

@@ -672,11 +672,6 @@ p_hsExpr' isApp s = \case
     breakpoint
     inci $ do
       txt "@"
-      -- Insert a space when the type is represented as a TH splice to avoid
-      -- gluing @ and $ together.
-      case unLoc (hswc_body a) of
-        HsSpliceTy {} -> space
-        _ -> return ()
       located (hswc_body a) p_hsType
   OpApp _ x op y -> do
     modFixityMap <- askModuleFixityMap