Use -XRecordWildCards

As prompted to do so in review
haskell · Dec 12, 2023 · fef7145 · fef7145
1 parent fbe54ec
commit fef7145
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/cabal-install/src/Distribution/Client/InstallSymlink.hs b/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)