@@ -99,12 +99,16 @@ updateSig _ sig = pure sig
9999updateLHsSigWsType :: Traversal' (LHsSigWcType GhcPs) (LHsSigType GhcPs)
100100updateLHsSigWsType f lhs@HsWC {} =
101101 (\x -> lhs {hswc_body = x}) <$> f (hswc_body lhs)
102+#if __GLASGOW_HASKELL__ < 900
102103updateLHsSigWsType _ lhs = pure lhs
104+#endif
103105
104106updateLHsSigType :: Traversal' (LHsSigType GhcPs) (LHsType GhcPs)
105107updateLHsSigType f lhs@HsIB {} =
106108 (\x -> lhs {hsib_body = x}) <$> f (hsib_body lhs)
109+#if __GLASGOW_HASKELL__ < 900
107110updateLHsSigType _ lhs = pure lhs
111+#endif
108112
109113updateLHsType :: Traversal' (LHsType GhcPs) (HsType GhcPs)
110114updateLHsType = traverse