Skip to content

Commit

Permalink
A better link
Browse files Browse the repository at this point in the history
  • Loading branch information
idontgetoutmuch authored and curiousleo committed May 19, 2020
1 parent 4b625ad commit 82ade70
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions System/Random.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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#)
Expand Down

0 comments on commit 82ade70

Please sign in to comment.