diff options
| author | James Crayne <jim.crayne@gmail.com> | 2016-04-27 20:58:22 -0400 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2016-04-27 20:58:22 -0400 |
| commit | 23d4552eba4a684f45f6da3682734360315e89cb (patch) | |
| tree | 70b4ef28ff0cc9b0c14b3b2ab82fd75ea5923850 /lib/Kiki.hs | |
| parent | f12466a5db359cb4f741b9333ceaf6cccbdeee49 (diff) | |
comment only
Diffstat (limited to 'lib/Kiki.hs')
| -rw-r--r-- | lib/Kiki.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index f4c8820..0e06ee2 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
| @@ -239,14 +239,14 @@ refreshCache rt rootdir = do | |||
| 239 | -- | 239 | -- |
| 240 | -- Use this stratagy for atomic transactions: | 240 | -- Use this stratagy for atomic transactions: |
| 241 | -- | 241 | -- |
| 242 | -- # cachedir=./cache | 242 | -- # cachedir=./cache -- let cacheddir = ".cache" |
| 243 | -- # destdir=config # relative to cachedir | 243 | -- # destdir=config # relative to cachedir -- destdir = "config" |
| 244 | -- # mkdir -p "$cachedir" | 244 | -- # mkdir -p "$cachedir" -- createDirectoryIfMissing True cacheddir |
| 245 | -- # cd "$cachedir" | 245 | -- # cd "$cachedir" |
| 246 | -- # tempdir=$(mktemp -d --tmpdir=.) || exit 1 | 246 | -- # tempdir=$(mktemp -d --tmpdir=.) || exit 1 -- tmpdir <- createTempDirectory cachedir "tmp.dir" |
| 247 | -- # touch "$tempdir"/asdf | 247 | -- # touch "$tempdir"/asdf -- ** Do Transaction stuff here ** |
| 248 | -- # ln -s "$tempdir" "$tempdir".link | 248 | -- # ln -s "$tempdir" "$tempdir".link -- createSymbolicLink tmpdir (tmpdir ++ ".link") |
| 249 | -- # mv -T "$tempdir".link "$destdir" | 249 | -- # mv -T "$tempdir".link "$destdir" -- rename (tmpdir ++ ".link") (cachedir </> destdir) |
| 250 | -- | 250 | -- |
| 251 | -- (before ln -s, "$tempdir" could be renamed to something meaningful) | 251 | -- (before ln -s, "$tempdir" could be renamed to something meaningful) |
| 252 | -- | 252 | -- |