random-fu-0.0.3: src/Data/Random/Internal/Fixed.hs

module Data.Random.Internal.Fixed where

import Data.Fixed
import Unsafe.Coerce

resolutionOf :: HasResolution r => f r -> Integer
resolutionOf x = resolution (res x)
    where
        res :: HasResolution r => f r -> r
        res = undefined

resolutionOf2 :: HasResolution r => f (g r) -> Integer
resolutionOf2 x = resolution (res x)
    where
        res :: HasResolution r => f (g r) -> r
        res = undefined

mkFixed :: Integer -> Fixed r
mkFixed = unsafeCoerce

unMkFixed :: Fixed r -> Integer
unMkFixed = unsafeCoerce