diff options
author | Joe Crayne <joe@jerkface.net> | 2018-10-26 02:19:09 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2018-10-26 02:19:09 -0400 |
commit | c2410d105de8b08e0633cb9b20d0cd426213de57 (patch) | |
tree | f4228bae87aae3c1a40a1f7223c1442a8c097bfb | |
parent | 9eb3ca619568b8c4b3c3d0ed2da0319f1bd9a4bd (diff) |
Removed experimental code.
-rw-r--r-- | lazy.hs | 30 | ||||
-rw-r--r-- | xdelta3.cabal | 6 |
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 #-} | ||
2 | import Control.Monad.ST | ||
3 | import Control.Monad.ST.Unsafe | ||
4 | import Data.VCDIFF | ||
5 | import qualified Data.ByteString as B | ||
6 | |||
7 | step2 = undefined | ||
8 | |||
9 | step1 = do | ||
10 | xs <- unsafeInterleaveST $ step2 | ||
11 | return $ 3 : xs | ||
12 | |||
13 | test f = do | ||
14 | xs <- f $ step2 | ||
15 | return $ 3 : xs | ||
16 | |||
17 | test2 f = withByteString B.empty $ \_ _ -> do | ||
18 | xs <- f $ step2 | ||
19 | return $ 3 : xs | ||
20 | |||
21 | main = 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 | |||
38 | executable lazy | ||
39 | main-is: lazy.hs | ||
40 | other-modules: Text.XXD | ||
41 | hs-source-dirs: haskell examples . | ||
42 | build-depends: base, bytestring, memory, xdelta | ||