diff options
| author | joe <joe@jerkface.net> | 2016-09-05 17:23:24 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2016-09-05 17:23:24 -0400 |
| commit | 705fdf0fa6121bc511497a69021c000e06638c6c (patch) | |
| tree | d5eabedfdab35c5f71a3c4ad0d18ed4689dd7f09 /lib/Kiki.hs | |
| parent | 0214686d1beaf10bd0b03b36105f59311111b3df (diff) | |
i386 haddock doesn't like my unicode.
amd64 liked it fine. Go figure.
Diffstat (limited to 'lib/Kiki.hs')
| -rw-r--r-- | lib/Kiki.hs | 12 |
1 files changed, 6 insertions, 6 deletions
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 | |||
| 656 | slash "" xs = '/':xs | 656 | slash "" xs = '/':xs |
| 657 | slash (y:ys) xs = y:slash ys xs | 657 | slash (y:ys) xs = y:slash ys xs |
| 658 | 658 | ||
| 659 | ㄧchroot :: Args (FilePath -> FilePath) | 659 | opt_chroot :: Args (FilePath -> FilePath) |
| 660 | ㄧchroot = pure (\r a -> slash r a) <*> arg "--chroot" <|> pure id | 660 | opt_chroot = pure (\r a -> slash r a) <*> arg "--chroot" <|> pure id |
| 661 | 661 | ||
| 662 | ㄧhomedir :: Args CommonArgsParsed | 662 | opt_homedir :: Args CommonArgsParsed |
| 663 | ㄧhomedir = CommonArgsParsed | 663 | opt_homedir = CommonArgsParsed |
| 664 | <$> optional (arg "--homedir") | 664 | <$> optional (arg "--homedir") |
| 665 | <*> optional (FileDesc <$> read <$> arg "--passphrase-fd") | 665 | <*> optional (FileDesc <$> read <$> arg "--passphrase-fd") |
| 666 | 666 | ||
| 667 | ㄧcipher :: Args SymmetricAlgorithm | 667 | opt_cipher :: Args SymmetricAlgorithm |
| 668 | ㄧcipher = fromMaybe CAST5 <$> optional (cipherFromString <$> arg "--cipher") | 668 | opt_cipher = fromMaybe CAST5 <$> optional (cipherFromString <$> arg "--cipher") |
| 669 | 669 | ||
| 670 | kikiOptions :: ( [(String,Int)], [String] ) | 670 | kikiOptions :: ( [(String,Int)], [String] ) |
| 671 | kikiOptions = ( ss, ps ) | 671 | kikiOptions = ( ss, ps ) |