@@ -13,7 +13,7 @@ module System.EntropyXen
1313 , openHandle
1414 , hGetEntropy
1515 , closeHandle
16− , hardwardRNG
16+ , hardwareRandom
1717 ) where
1818
1919import Control.Monad (liftM, when)
@@ -49,7 +49,7 @@ openHandle = do
4949closeHandle :: CryptHandle -> IO ()
5050closeHandle UseRdRand = return ()
5151
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
5353-- supported hardware RNG is available.
5454--
5555-- Supported hardware: