From 5d02baf2ad8fd0bbe1e33e6142427b69928f803e Mon Sep 17 00:00:00 2001
From: Matthías Páll Gissurarson <mpg@mpg.is>
Date: Sat, 28 Sep 2019 18:14:40 +0200
Subject: Small change in to facilitate extended typed-holes (#1090)
This change has no functional effect on haddock itself, it just changes one pattern to use `_ (` rather than `_(`, so that we may use `_(` as a token for extended typed-holes later.
---
haddock-api/src/Haddock/GhcUtils.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'haddock-api')
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs
index b5613570..cef1e6e9 100644
--- a/haddock-api/src/Haddock/GhcUtils.hs
+++ b/haddock-api/src/Haddock/GhcUtils.hs
@@ -134,10 +134,10 @@ sigNameNoLoc _ = []
-- | Was this signature given by the user?
isUserLSig :: LSig name -> Bool
-isUserLSig (L _(TypeSig {})) = True
-isUserLSig (L _(ClassOpSig {})) = True
-isUserLSig (L _(PatSynSig {})) = True
-isUserLSig _ = False
+isUserLSig (L _ (TypeSig {})) = True
+isUserLSig (L _ (ClassOpSig {})) = True
+isUserLSig (L _ (PatSynSig {})) = True
+isUserLSig _ = False
isClassD :: HsDecl a -> Bool
--
cgit v1.2.3