summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2018-10-26 02:19:09 -0400
committerJoe Crayne <joe@jerkface.net>2018-10-26 02:19:09 -0400
commitc2410d105de8b08e0633cb9b20d0cd426213de57 (patch)
treef4228bae87aae3c1a40a1f7223c1442a8c097bfb
parent9eb3ca619568b8c4b3c3d0ed2da0319f1bd9a4bd (diff)
Removed experimental code.
-rw-r--r--lazy.hs30
-rw-r--r--xdelta3.cabal6
2 files changed, 0 insertions, 36 deletions
diff --git a/lazy.hs b/lazy.hs
deleted file mode 100644
index 5bbfa51..0000000
--- a/lazy.hs
+++ /dev/null
@@ -1,30 +0,0 @@
1{-# LANGUAGE NoMonomorphismRestriction #-}
2import Control.Monad.ST
3import Control.Monad.ST.Unsafe
4import Data.VCDIFF
5import qualified Data.ByteString as B
6
7step2 = undefined
8
9step1 = do
10 xs <- unsafeInterleaveST $ step2
11 return $ 3 : xs
12
13test f = do
14 xs <- f $ step2
15 return $ 3 : xs
16
17test2 f = withByteString B.empty $ \_ _ -> do
18 xs <- f $ step2
19 return $ 3 : xs
20
21main = do
22 let xs = runST step1
23 ys = runST (test id)
24 zs = runST (test unsafeInterleaveST)
25 vs = runST (test2 unsafeInterleaveST)
26 print $ take 1 xs
27 -- print $ take 1 ys
28 print $ take 1 zs
29 print $ take 1 vs
30
diff --git a/xdelta3.cabal b/xdelta3.cabal
index 6907ebc..09f9b87 100644
--- a/xdelta3.cabal
+++ b/xdelta3.cabal
@@ -34,9 +34,3 @@ executable testdiff
34 other-modules: Text.XXD 34 other-modules: Text.XXD
35 hs-source-dirs: haskell examples . 35 hs-source-dirs: haskell examples .
36 build-depends: base, bytestring, memory, xdelta 36 build-depends: base, bytestring, memory, xdelta
37
38executable lazy
39 main-is: lazy.hs
40 other-modules: Text.XXD
41 hs-source-dirs: haskell examples .
42 build-depends: base, bytestring, memory, xdelta