Removed DuplicateRecordFields extension

We don't need to disambiguate record fields anymore.

Author: coot

dmq-node/src/DMQ/Diffusion/Applications.hs

@@ -1,6 +1,5 @@
-{-# LANGUAGE DuplicateRecordFields #-}
-{-# LANGUAGE FlexibleContexts      #-}
-{-# LANGUAGE NamedFieldPuns        #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE NamedFieldPuns   #-}
 
 module DMQ.Diffusion.Applications where
 
@@ -40,45 +39,45 @@ diffusionApplications
     dmqcNetworkMagic = I networkMagic
   }
   Diffusion.Configuration {
-    dcMode
-  , dcPeerSharing
+    Diffusion.dcMode
+  , Diffusion.dcPeerSharing
   }
   ntnLimitsAndTimeouts
   ntnApps
   ntcApps
   peerSelectionPolicy =
   Diffusion.Applications {
-    daApplicationInitiatorMode =
+    Diffusion.daApplicationInitiatorMode =
       combineVersions
         [ simpleSingletonVersions
             version
             (stdVersionDataNTN networkMagic dcMode dcPeerSharing)
             (NTN.initiatorProtocols ntnLimitsAndTimeouts ntnApps version)
         | version <- [minBound..maxBound]
         ]
-  , daApplicationInitiatorResponderMode =
+  , Diffusion.daApplicationInitiatorResponderMode =
       combineVersions
         [ simpleSingletonVersions
             version
             (stdVersionDataNTN networkMagic dcMode dcPeerSharing)
             (NTN.initiatorAndResponderProtocols ntnLimitsAndTimeouts ntnApps version)
         | version <- [minBound..maxBound]
         ]
-  , daLocalResponderApplication         =
+  , Diffusion.daLocalResponderApplication =
       combineVersions
         [ simpleSingletonVersions
             version
             (stdVersionDataNTC networkMagic)
             (NTC.responders ntcApps version)
         | version <- [minBound..maxBound]
         ]
-  , daRethrowPolicy                     =  muxErrorRethrowPolicy
-                                        <> ioErrorRethrowPolicy
-  , daReturnPolicy                      = const dmqRepromoteDelay
-  , daRepromoteErrorDelay               = dmqRepromoteDelay
-  , daLocalRethrowPolicy                = mempty
-  , daPeerSelectionPolicy               = peerSelectionPolicy
-  , daPeerSharingRegistry               = peerSharingRegistry
+  , Diffusion.daRethrowPolicy       =  muxErrorRethrowPolicy
+                                   <> ioErrorRethrowPolicy
+  , Diffusion.daReturnPolicy        = const dmqRepromoteDelay
+  , Diffusion.daRepromoteErrorDelay = dmqRepromoteDelay
+  , Diffusion.daLocalRethrowPolicy  = mempty
+  , Diffusion.daPeerSelectionPolicy = peerSelectionPolicy
+  , Diffusion.daPeerSharingRegistry = peerSharingRegistry
   }