@@ -44,8 +44,8 @@ newtype CountryCode = CountryCode Int
4444 deriving newtype (Eq, Ord, Show, Num)
4545
4646-- | Record pattern synonym for accessing data fields of the underlying C++
47−-- object. If on GHC 9.2+, it can be used for record construction, record
48−-- update, and record pattern match. See t'PhoneNumber'.
47+-- object. It can be used for record construction, record update, and record
48+-- pattern match. See t'PhoneNumber'.
4949pattern PhoneNumber
5050 :: Maybe ByteString
5151 -> Maybe ByteString
@@ -57,7 +57,6 @@ pattern PhoneNumber
5757 -> Maybe Int
5858 -> PhoneNumber
5959pattern PhoneNumber
60−#if __GLASGOW_HASKELL__ >= 902
6160 { extension
6261 , rawInput
6362 , preferredDomesticCarrierCode
@@ -67,10 +66,6 @@ pattern PhoneNumber
6766 , countryCodeSource
6867 , numberOfLeadingZeros
6968 }
70−#else
71− extension rawInput preferredDomesticCarrierCode nationalNumber countryCode
72− italianLeadingZero countryCodeSource numberOfLeadingZeros
73−#endif
7469 <- (toCPhoneNumber -> CPhoneNumber
7570 { I.nationalNumber = fromIntegral -> nationalNumber
7671 , I.countryCode = fromIntegral -> CountryCode -> countryCode
@@ -83,30 +78,4 @@ pattern PhoneNumber
8378 countryCodeSource (fmap fromIntegral -> numberOfLeadingZeros)
8479 = fromCPhoneNumber $ CPhoneNumber{..}
8580
86−#if __GLASGOW_HASKELL__ < 902
87−extension :: PhoneNumber -> Maybe ByteString
88−extension (PhoneNumber x _ _ _ _ _ _ _) = x
89−
90−rawInput :: PhoneNumber -> Maybe ByteString
91−rawInput (PhoneNumber _ x _ _ _ _ _ _) = x
92−
93−preferredDomesticCarrierCode :: PhoneNumber -> Maybe ByteString
94−preferredDomesticCarrierCode (PhoneNumber _ _ x _ _ _ _ _) = x
95−
96−nationalNumber :: PhoneNumber -> Word
97−nationalNumber (PhoneNumber _ _ _ x _ _ _ _) = x
98−
99−countryCode :: PhoneNumber -> CountryCode
100−countryCode (PhoneNumber _ _ _ _ x _ _ _) = x
101−
102−italianLeadingZero :: PhoneNumber -> Maybe Bool
103−italianLeadingZero (PhoneNumber _ _ _ _ _ x _ _) = x
104−
105−countryCodeSource :: PhoneNumber -> Maybe CountryCodeSource
106−countryCodeSource (PhoneNumber _ _ _ _ _ _ x _) = x
107−
108−numberOfLeadingZeros :: PhoneNumber -> Maybe Int
109−numberOfLeadingZeros (PhoneNumber _ _ _ _ _ _ _ x) = x
110−#endif
111−
11281{-# COMPLETE PhoneNumber #-}