tested with ghc-6.8.3

1 files changed, 11 insertions, 0 deletions

diff --git a/examples/inplace.hs b/examples/inplace.hs
index 9f23e0c..dcfff56 100644
--- a/examples/inplace.hs
+++ b/examples/inplace.hs
@@ -129,6 +129,14 @@ histoCheck ds = runSTVector $ do
     mapM_ inc ds
     return h
 
+hc = fromList [1 .. 15::Double]
+
+-- check that thawVector creates a new array
+histoCheck2 ds = runSTVector $ do
+    h <- thawVector hc
+    let inc k = modifyVector h k (+1)
+    mapM_ inc ds
+    return h
 
 test8 = do
     let ds = [0..14]
@@ -138,4 +146,7 @@ test8 = do
     print $ histoCheck ds
     print $ histoCheck ds
     print $ histoCheck ds
+    print $ histoCheck2 ds
+    print $ histoCheck2 ds
+    print $ histoCheck2 ds
     putStrLn "----------------------"