@@ -99,12 +99,16 @@ updateSig _ sig = pure sig
99updateLHsSigWsType :: Traversal' (LHsSigWcType GhcPs) (LHsSigType GhcPs)
99updateLHsSigWsType :: Traversal' (LHsSigWcType GhcPs) (LHsSigType GhcPs)
100updateLHsSigWsType f lhs@HsWC {} =
100updateLHsSigWsType f lhs@HsWC {} =
101 (\x -> lhs {hswc_body = x}) <$> f (hswc_body lhs)
101 (\x -> lhs {hswc_body = x}) <$> f (hswc_body lhs)
102+#if __GLASGOW_HASKELL__ < 900
102updateLHsSigWsType _ lhs = pure lhs
103updateLHsSigWsType _ lhs = pure lhs
104updateLHsSigType :: Traversal' (LHsSigType GhcPs) (LHsType GhcPs)
106updateLHsSigType :: Traversal' (LHsSigType GhcPs) (LHsType GhcPs)
105updateLHsSigType f lhs@HsIB {} =
107updateLHsSigType f lhs@HsIB {} =
106 (\x -> lhs {hsib_body = x}) <$> f (hsib_body lhs)
108 (\x -> lhs {hsib_body = x}) <$> f (hsib_body lhs)
109+#if __GLASGOW_HASKELL__ < 900
107updateLHsSigType _ lhs = pure lhs
110updateLHsSigType _ lhs = pure lhs
109updateLHsType :: Traversal' (LHsType GhcPs) (HsType GhcPs)
113updateLHsType :: Traversal' (LHsType GhcPs) (HsType GhcPs)
110updateLHsType = traverse
114updateLHsType = traverse