diff options
| -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 |