@@ -13,7 +13,7 @@ module System.EntropyXen
13 , openHandle
13 , openHandle
14 , hGetEntropy
14 , hGetEntropy
15 , closeHandle
15 , closeHandle
16− , hardwardRNG
16+ , hardwareRandom
19import Control.Monad (liftM, when)
19import Control.Monad (liftM, when)
@@ -49,7 +49,7 @@ openHandle = do
49closeHandle :: CryptHandle -> IO ()
49closeHandle :: CryptHandle -> IO ()
50closeHandle UseRdRand = return ()
50closeHandle UseRdRand = return ()
52−-- | Get random values from the hardward RNG or return Nothing if no
52+-- | Get random values from the hardware RNG or return Nothing if no
53-- supported hardware RNG is available.
53-- supported hardware RNG is available.
55-- Supported hardware:
55-- Supported hardware: