i386 haddock doesn't like my unicode.

amd64 liked it fine.  Go figure.

3 files changed, 12 insertions, 12 deletions

diff --git a/cokiki.hs b/cokiki.hs
index b6d94a0..a685977 100644
--- a/cokiki.hs
+++ b/cokiki.hs
@@ -63,11 +63,11 @@ main = do
     (cmd,args) <- splitAt 1 <$> getArgs
     uid <- getEffectiveUserID
     let msel = case cmd of
-                ["ssh-client"] -> Just $ sshClient  uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
-                ["ssh-server"] -> Just $ sshServer  uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
-                ["strongswan"] -> Just $ strongswan uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
-                ["tor"]        -> Just $ configureTor uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
-                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.ㄧchroot <*> Kiki.ㄧhomedir
+                ["ssh-client"] -> Just $ sshClient  uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["ssh-server"] -> Just $ sshServer  uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["strongswan"] -> Just $ strongswan uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["tor"]        -> Just $ configureTor uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
+                ["hosts"]      -> Just $ configureHosts uid <$> Kiki.opt_chroot <*> Kiki.opt_homedir
                 _ -> Nothing
         spec = uncurry fancy Kiki.kikiOptions ""
         errorQuit msg = do
diff --git a/kiki.hs b/kiki.hs
index adb7973..e8b6753 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1548,7 +1548,7 @@ kiki "init" args | "--help" `elem` args = do
         , ""
         ] ++ documentHomeDir ++ [""] ++ documentPassphraseFDFlag True True True
 
-kiki "init" args = run args $ importAndRefresh <$> ㄧchroot <*> ㄧhomedir <*> ㄧcipher
+kiki "init" args = run args $ importAndRefresh <$> opt_chroot <*> opt_homedir <*> opt_cipher
 
 kiki "delete" args | "--help" `elem` args = do
     putStr . unlines $
diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 45e67f8..a683a91 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -656,16 +656,16 @@ slash ""     ('/':xs) = '/':xs
 slash ""     xs       = '/':xs
 slash (y:ys) xs       = y:slash ys xs
 
-ㄧchroot :: Args (FilePath -> FilePath)
-ㄧchroot = pure (\r a -> slash r a) <*> arg "--chroot" <|> pure id
+opt_chroot :: Args (FilePath -> FilePath)
+opt_chroot = pure (\r a -> slash r a) <*> arg "--chroot" <|> pure id
 
-ㄧhomedir :: Args CommonArgsParsed
-ㄧhomedir = CommonArgsParsed
+opt_homedir :: Args CommonArgsParsed
+opt_homedir = CommonArgsParsed
                 <$> optional (arg "--homedir")
                 <*> optional (FileDesc <$> read <$> arg "--passphrase-fd")
 
-ㄧcipher :: Args SymmetricAlgorithm
-ㄧcipher = fromMaybe CAST5 <$> optional (cipherFromString <$> arg "--cipher")
+opt_cipher :: Args SymmetricAlgorithm
+opt_cipher = fromMaybe CAST5 <$> optional (cipherFromString <$> arg "--cipher")
 
 kikiOptions :: ( [(String,Int)], [String] )
 kikiOptions = ( ss, ps )