From 705fdf0fa6121bc511497a69021c000e06638c6c Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 5 Sep 2016 17:23:24 -0400
Subject: i386 haddock doesn't like my unicode.

amd64 liked it fine.  Go figure.
---
 lib/Kiki.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lib/Kiki.hs')

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 )
-- 
cgit v1.2.3