Use -XRecordWildCards

As prompted to do so in review
haskell · Dec 12, 2023 · 729c659 · 729c659
1 parent eb46bdc
commit 729c659
Showing 1 changed file with 14 additions and 18 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,24 +285,19 @@ onSymlinkBinary
   -- ^ Prompt action
   -> Symlink
   -> IO a
-onSymlinkBinary
-  onMissing
-  onOverwrite
-  onNever
-  onPrompt
-  Symlink{overwritePolicy, publicBindir, privateBindir, publicName, privateName} = do
-    ok <-
-      targetOkToOverwrite
-        (publicBindir </> publicName)
-        (privateBindir </> privateName)
-    case ok of
-      NotExists -> onMissing
-      OkToOverwrite -> onOverwrite
-      NotOurFile ->
-        case overwritePolicy of
-          NeverOverwrite -> onNever
-          AlwaysOverwrite -> onOverwrite
-          PromptOverwrite -> onPrompt
+onSymlinkBinary onMissing onOverwrite onNever onPrompt Symlink{..} = do
+  ok <-
+    targetOkToOverwrite
+      (publicBindir </> publicName)
+      (privateBindir </> privateName)
+  case ok of
+    NotExists -> onMissing
+    OkToOverwrite -> onOverwrite
+    NotOurFile ->
+      case overwritePolicy of
+        NeverOverwrite -> onNever
+        AlwaysOverwrite -> onOverwrite
+        PromptOverwrite -> onPrompt
 
 -- | Can we symlink a binary?
 --