From 3e98e71b49c3e7dbba3af43d18dea106726fef41 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Wed, 5 Mar 2025 11:07:12 +1100 Subject: switch to hashmap --- src/PPL/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/PPL/Internal.hs') 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 -- cgit v1.2.3