diff options
Diffstat (limited to 'src/PPL/Sampling.hs')
| -rw-r--r-- | src/PPL/Sampling.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/PPL/Sampling.hs b/src/PPL/Sampling.hs index d397ca8..256e67b 100644 --- a/src/PPL/Sampling.hs +++ b/src/PPL/Sampling.hs @@ -13,8 +13,8 @@ where import Control.Monad import Control.Monad.IO.Class import Data.IORef +import Data.Vector qualified as V import Data.Vector.Hashtables qualified as H -import Data.Vector.Unboxed qualified as V import Data.Word import Numeric.Log import PPL.Internal @@ -42,7 +42,7 @@ mh g p m = do yield (x'', w'') step g2 omega'' x'' w'' - mutate :: (MonadIO m) => StdGen -> IORef (HashMap Word64 Double, StdGen) -> m (IORef (HashMap Word64 Double, StdGen)) + mutate :: (MonadIO m) => StdGen -> IORef (HashMap Integer Double, StdGen) -> m (IORef (HashMap Integer Double, StdGen)) mutate g omega = liftIO $ do (m, g0) <- readIORef omega m' <- H.clone m |