diff options
| author | Matthías Páll Gissurarson <mpg@mpg.is> | 2019-09-28 18:14:40 +0200 |
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2019-09-28 12:14:40 -0400 |
| commit | 5d02baf2ad8fd0bbe1e33e6142427b69928f803e (patch) | |
| tree | 2e57e1ed69a7ae27f5ae06a316adfdeccc2ffa8a /haddock-api/src/Haddock | |
| parent | 58933236f116a26a2827b0cb5c46947e4f056c77 (diff) | |
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.
Diffstat (limited to 'haddock-api/src/Haddock')
| -rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |