Use -XRecordWildCards

As prompted to do so in review

Author: philderbeast

cabal-install/src/Distribution/Client/InstallSymlink.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE RecordWildCards #-}
 
 -----------------------------------------------------------------------------
 
@@ -284,12 +285,7 @@ onSymlinkBinary
   -- ^ Prompt action
   -> Symlink
   -> IO a
-onSymlinkBinary
-  onMissing
-  onOverwrite
-  onNever
-  onPrompt
-  Symlink{overwritePolicy, publicBindir, privateBindir, publicName, privateName} = do
+onSymlinkBinary onMissing onOverwrite onNever onPrompt Symlink{..} = do
     ok <-
       targetOkToOverwrite
         (publicBindir </> publicName)