From 82ade70d2dc6692efa516caebe138c0f531f8dae Mon Sep 17 00:00:00 2001
From: Dominic Steinitz <dominic@steinitz.org>
Date: Fri, 27 Mar 2020 16:59:32 +0000
Subject: [PATCH] A better link

---
 System/Random.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/System/Random.hs b/System/Random.hs
index 0534adf32..81b2bd706 100644
--- a/System/Random.hs
+++ b/System/Random.hs
@@ -1004,8 +1004,7 @@ word64ToDoubleInUnitInterval w64 = between1and2 - 1.0
 
 -- | These are now in 'GHC.Float' but unpatched in some versions so
 -- for now we roll our own. See
--- https://gitlab.haskell.org/ghc/ghc/-/blob/master/libraries/base/GHC/Float.hs
--- (4bada77d58).
+-- https://gitlab.haskell.org/ghc/ghc/-/blob/6d172e63f3dd3590b0a57371efb8f924f1fcdf05/libraries/base/GHC/Float.hs
 {-# INLINE castWord32ToFloat #-}
 castWord32ToFloat :: Word32 -> Float
 castWord32ToFloat (W32# w#) = F# (stgWord32ToFloat w#)