summaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authordavid2018-08-25 17:17:57 +0000
committeradmin2018-08-25 17:17:57 +0000
commit9dcce408258bc08999bb1d2b798fbf12a3980137 (patch)
tree8fb0566a353173a4d0e3bd6551daa4381f9ca855 /doc
parent83f48e1f33c0c7f1b22b2d79b960caffab7b94f7 (diff)
removed
Diffstat (limited to 'doc')
-rw-r--r--doc/forum/integration_with_gitolite/comment_4_acaa1d125ea406c2a5617a4effc4b115._comment33
1 files changed, 0 insertions, 33 deletions
diff --git a/doc/forum/integration_with_gitolite/comment_4_acaa1d125ea406c2a5617a4effc4b115._comment b/doc/forum/integration_with_gitolite/comment_4_acaa1d125ea406c2a5617a4effc4b115._comment
deleted file mode 100644
index 3a02b96e..00000000
--- a/doc/forum/integration_with_gitolite/comment_4_acaa1d125ea406c2a5617a4effc4b115._comment
+++ /dev/null
@@ -1,33 +0,0 @@
-[[!comment format=mdwn
- username="david"
- avatar="http://cdn.libravatar.org/avatar/22c2d800db6a7699139df604a67cb221"
- subject="getting closer"
- date="2018-08-25T17:16:48Z"
- content="""
-maybe I suffer from Haskell blindness, but I didn't see how you handled keys
-
-here's my latest revision
-[[!format haskell \"\"\"
-gitoliteKeys :: User -> [(FilePath, String)] -> Property UnixLike
-gitoliteKeys user@(User username) keys = property' (\"set up gitolite keys for \" ++ username) $ \w -> do
- home <- liftIO (User.homedir user)
- ensureProperty w $ go home
- where
- go :: FilePath -> Property UnixLike
- go home = installKeys keys
- `onChange` recompile
- `requires` File.dirExists keydir
- where
- keydir = home </> \".gitolite/keydir/zzz/propellor\"
- recompile = Cmd.userScriptProperty user [ \"gitolite ../triggers/post-compile/ssh-authkeys\"
- , \"gitolite ../triggers/post-compile/ssh-authkeys-shell-users bremner\"
- ]
- `changesFile` (home </> \"gitolite/.ssh/authorized_keys\")
- installKeys :: [(FilePath, String)] -> Property UnixLike
- installKeys [] = doNothing
- installKeys ((path, content):rest) = File.hasContent (keydir </> path ++ \".pub\") [content]
- `before` installKeys rest
-\"\"\"]]
-
-It still has one piece of hardcoding in it (the shell user bremner)
-"""]]