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
                                                     ""  -> Nothing
                                                     pth -> Just pth
         err            -> hPutStrLn stderr $ errorString err
+
+ㄧchroot :: Args (FilePath -> FilePath)
+ㄧchroot = pure (\r a -> slash r a) <*> arg "--chroot" <|> pure id
+
+slash :: String -> String -> String
+slash "/"    ('/':xs) = '/':xs
+slash ""     ('/':xs) = '/':xs
+slash ""     xs       = '/':xs
+slash (y:ys) xs       = y:slash ys xs
+