fix snoyberg#194

xml-hamlet/Text/Hamlet/XML.hs

@@ -151,22 +151,34 @@ docToExp scope (DocForall list idents inside) = do
     let scope' = extraScope ++ scope
     mh <- [|F.concatMap|]
     inside' <- docsToExp scope' inside
+#if MIN_VERSION_template_haskell(2,22,0)
+    let lam = LamE [VisAP pat] inside'
+#else
     let lam = LamE [pat] inside'
+#endif
     return $ mh `AppE` lam `AppE` list'
 docToExp scope (DocWith [] inside) = docsToExp scope inside
 docToExp scope (DocWith ((deref, idents):dis) inside) = do
     let deref' = derefToExp scope deref
     (pat, extraScope) <- bindingPattern idents
     let scope' = extraScope ++ scope
     inside' <- docToExp scope' (DocWith dis inside)
+#if MIN_VERSION_template_haskell(2,22,0)
+    let lam = LamE [VisAP pat] inside'
+#else
     let lam = LamE [pat] inside'
+#endif
     return $ lam `AppE` deref'
 docToExp scope (DocMaybe val idents inside mno) = do
     let val' = derefToExp scope val
     (pat, extraScope) <- bindingPattern idents
     let scope' = extraScope ++ scope
     inside' <- docsToExp scope' inside
+#if MIN_VERSION_template_haskell(2,22,0)
+    let inside'' = LamE [VisAP pat] inside'
+#else
     let inside'' = LamE [pat] inside'
+#endif
     ninside' <- case mno of
                     Nothing -> [| [] |]
                     Just no -> docsToExp scope no