From 2219bfa4b01577ea66f16e7912fa46a040f89c8e Mon Sep 17 00:00:00 2001
From: Dominic Steinitz <dominic@steinitz.org>
Date: Fri, 27 Mar 2020 16:32:34 +0000
Subject: [PATCH] Respond to feedback

---
 System/Random.hs        | 4 +++-
 cbits/CastFloatWord.cmm | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/System/Random.hs b/System/Random.hs
index f2beadc8b..0534adf32 100644
--- a/System/Random.hs
+++ b/System/Random.hs
@@ -1003,7 +1003,9 @@ word64ToDoubleInUnitInterval w64 = between1and2 - 1.0
 {-# INLINE word64ToDoubleInUnitInterval #-}
 
 -- | These are now in 'GHC.Float' but unpatched in some versions so
--- for now we roll our own.
+-- for now we roll our own. See
+-- https://gitlab.haskell.org/ghc/ghc/-/blob/master/libraries/base/GHC/Float.hs
+-- (4bada77d58).
 {-# INLINE castWord32ToFloat #-}
 castWord32ToFloat :: Word32 -> Float
 castWord32ToFloat (W32# w#) = F# (stgWord32ToFloat w#)
diff --git a/cbits/CastFloatWord.cmm b/cbits/CastFloatWord.cmm
index ec85905f5..77c060606 100644
--- a/cbits/CastFloatWord.cmm
+++ b/cbits/CastFloatWord.cmm
@@ -1,3 +1,4 @@
+/* This comes as part of your Haskell installation */
 #include "Cmm.h"
 #include "MachDeps.h"