Respond to feedback

haskell · May 19, 2020 · 2219bfa · 2219bfa
1 parent a290c8d
commit 2219bfa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git 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
@@ -1,3 +1,4 @@
+/* This comes as part of your Haskell installation */
 #include "Cmm.h"
 #include "MachDeps.h"