diff options
| author | Justin Bedo <cu@cua0.org> | 2025-03-05 11:07:12 +1100 |
|---|---|---|
| committer | Justin Bedo <cu@cua0.org> | 2025-03-05 11:07:15 +1100 |
| commit | 3e98e71b49c3e7dbba3af43d18dea106726fef41 (patch) | |
| tree | 794517785bedc340bdb88591845786aef70f4d79 /src/PPL/Internal.hs | |
| parent | a4cbf2ff3f1839dc302f5956b9b27c6bb28b3f30 (diff) | |
switch to hashmap
Diffstat (limited to 'src/PPL/Internal.hs')
| -rw-r--r-- | src/PPL/Internal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/PPL/Internal.hs b/src/PPL/Internal.hs index 49737d0..7273d23 100644 --- a/src/PPL/Internal.hs +++ b/src/PPL/Internal.hs @@ -28,7 +28,7 @@ import qualified Language.Haskell.TH.Syntax as TH import Numeric.Log import System.Random hiding (split, uniform) import qualified System.Random as R -import qualified Data.Map.Strict as M +import qualified Data.HashMap.Strict as M import Data.IORef import System.IO.Unsafe @@ -43,7 +43,7 @@ split :: Tree -> (Tree, Tree) split (Tree r (t : ts)) = (t, Tree r ts) {-# INLINE newTree #-} -newTree :: IORef (M.Map [Int] Double, StdGen) -> Tree +newTree :: IORef (M.HashMap [Int] Double, StdGen) -> Tree newTree s = go [] where go id = Tree (unsafePerformIO $ do |