Edits

Author: ckoparkar

gibbon-ghc-integration/examples/app/Main.hs

@@ -53,11 +53,12 @@ main = do
   -- !fastn <- fastbench1 10
   -- print fastn
 
-  let size = 22
+  let size = 25
   let iters = 9
-  (res0, t0, t_all) <- bench bench1 size iters
-  return (show res0, show t0, show t_all)
+  (res0, t0, t_all_0) <- bench bench1 size iters
 
-  (res0, t0, t_all) <- bench fastbench1 size iters
-  return (show res0, show t0, show t_all)
+  (res1, t1, t_all_1) <- benchIO fastbench1 size iters
+
+  print (res0,t0)
+  print (res1,t1)
   pure ()

gibbon-ghc-integration/examples/src/BinTree.hs

@@ -50,12 +50,12 @@ liftbench1 n = sumTree_seq (mkTree_seq n)
 
 
 foreign import ccall unsafe "c_liftbench1"
-  cfastbench1 :: CInt -> CInt
+  cfastbench1 :: CInt -> IO CInt
 
-fastbench1 :: Int -> Int
-fastbench1 x =
-  let y = cfastbench1 (fromIntegral x)
-  in fromIntegral y
+fastbench1 :: Int -> IO Int
+fastbench1 x = do
+  y <- cfastbench1 (fromIntegral x)
+  pure $ fromIntegral y
 
 --------------------------------------------------------------------------------