sayo-hs/heftia
1
1
Fork 0
mirror of https://github.com/sayo-hs/heftia.git synced 2024-11-26 11:32:21 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

[add] execution result in the Provider example.

Browse Source
This commit is contained in:
Yamada Ryo 2024-10-31 11:19:49 +09:00
parent 758d5912c9
commit 8004fd3cc3
No known key found for this signature in database
GPG Key ID: AAE3C7A542B02DBF
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
heftia-effects/Example/FileSystemProvider/Main.hs
View File

@ -67,3 +67,19 @@ main =
transactFS' @"fs2" do
inBase $ transactFS' @"fs1" do
liftIO $ print "hello"
{-
[DUMMY FS /fs1] readFS "/a/b/c"
content: "DUMMY CONTENT on /fs1/a/b/c"
[DUMMY FS /fs1] writeFS "/d/e/f" "foobar"
-----
[DUMMY FS /fs2] readFS "/a/b/c"
content: "DUMMY CONTENT on /fs2/a/b/c"
[DUMMY FS /fs2] writeFS "/d/e/f" "foobar"
-----
[DUMMY FS /fs2] START TRANSACTION
[DUMMY FS /fs1] START TRANSACTION
"hello"
[DUMMY FS /fs1] END TRANSACTION
[DUMMY FS /fs2] END TRANSACTION
-}