From cd78c9e30e2de44804e0b23fcd2065718614cdd9 Mon Sep 17 00:00:00 2001
From: Benjamin Redelings <benjamin.redelings@gmail.com>
Date: Tue, 17 Oct 2023 10:19:52 -0400
Subject: [PATCH] Use sample instead of sampleIO in Simulate.hs

---
 scripts/Simulate.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/scripts/Simulate.hs b/scripts/Simulate.hs
index 42b2b0623..effd3bf6a 100644
--- a/scripts/Simulate.hs
+++ b/scripts/Simulate.hs
@@ -50,15 +50,15 @@ getImodel = do
 
 model rootedTree startLength = do
 
-  smodel <- run_lazy $ getSmodel
+  smodel <- getSmodel
 
-  imodel <- run_lazy $ getImodel
+  imodel <- getImodel
 
   -- Sample the sequences and their alignment
-  alignment <- sampleIO $ IndelsOnTree rootedTree imodel startLength
+  alignment <- sample $ IndelsOnTree rootedTree imodel startLength
 
   -- Sample ancestral sequence STATES
-  sequences <- run_lazy $ sample $ ctmc_on_tree rootedTree alignment smodel
+  sequences <- sample $ ctmc_on_tree rootedTree alignment smodel
 
   -- Print the aligned sequences
   return $ align alignment sequences
@@ -72,7 +72,7 @@ main = do
 
   let startLength = getStartLength args
 
-  alignedSequences <- model rootedTree startLength
+  alignedSequences <- run_lazy $ model rootedTree startLength
 
   T.putStr $ toFasta $ alignedSequences