diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Kiki.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index be99ed8..ec34542 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
@@ -193,3 +193,13 @@ replaceSshServerKeys root cmn = do | |||
193 | "" -> Nothing | 193 | "" -> Nothing |
194 | pth -> Just pth | 194 | pth -> Just pth |
195 | err -> hPutStrLn stderr $ errorString err | 195 | err -> hPutStrLn stderr $ errorString err |
196 | |||
197 | ㄧchroot :: Args (FilePath -> FilePath) | ||
198 | ㄧchroot = pure (\r a -> slash r a) <*> arg "--chroot" <|> pure id | ||
199 | |||
200 | slash :: String -> String -> String | ||
201 | slash "/" ('/':xs) = '/':xs | ||
202 | slash "" ('/':xs) = '/':xs | ||
203 | slash "" xs = '/':xs | ||
204 | slash (y:ys) xs = y:slash ys xs | ||
205 | |||