From 9dcce408258bc08999bb1d2b798fbf12a3980137 Mon Sep 17 00:00:00 2001 From: david Date: Sat, 25 Aug 2018 17:17:57 +0000 Subject: removed --- ...ent_4_acaa1d125ea406c2a5617a4effc4b115._comment | 33 ---------------------- 1 file changed, 33 deletions(-) delete mode 100644 doc/forum/integration_with_gitolite/comment_4_acaa1d125ea406c2a5617a4effc4b115._comment (limited to 'doc/forum/integration_with_gitolite') 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) -"""]] -- cgit v1.2.3