diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index d704889..d44d582 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -280,7 +280,7 @@ installCabalBin :: ( MonadMask m
                       ]
                      m
                      ()
-installCabalBin bDls ver pfreq@(PlatformRequest {..}) = do
+installCabalBin bDls ver pfreq = do
   dlinfo <- lE $ getDownloadInfo GHC ver pfreq bDls
   installCabalBindist dlinfo ver pfreq