diff options
-rw-r--r-- | kiki.hs | 11 |
1 files changed, 1 insertions, 10 deletions
@@ -9,9 +9,7 @@ | |||
9 | {-# LANGUAGE CPP #-} | 9 | {-# LANGUAGE CPP #-} |
10 | module Main ( main ) where | 10 | module Main ( main ) where |
11 | 11 | ||
12 | import Control.Applicative | ||
13 | import Control.Monad | 12 | import Control.Monad |
14 | import Control.Monad.Fix | ||
15 | import Data.ASN1.BinaryEncoding | 13 | import Data.ASN1.BinaryEncoding |
16 | import Data.ASN1.Encoding | 14 | import Data.ASN1.Encoding |
17 | import Data.ASN1.Types | 15 | import Data.ASN1.Types |
@@ -26,12 +24,8 @@ import Data.OpenPGP | |||
26 | import Data.Ord | 24 | import Data.Ord |
27 | import Data.String | 25 | import Data.String |
28 | import Data.Text.Encoding | 26 | import Data.Text.Encoding |
29 | import System.Posix.User | ||
30 | import System.Posix.Files | 27 | import System.Posix.Files |
31 | import System.Posix.Types | ||
32 | import System.FilePath.Posix | ||
33 | import Foreign.C.Types (CTime(..)) | 28 | import Foreign.C.Types (CTime(..)) |
34 | import System.Directory | ||
35 | import System.Environment | 29 | import System.Environment |
36 | import System.Exit | 30 | import System.Exit |
37 | import System.IO (hPutStrLn,stderr) | 31 | import System.IO (hPutStrLn,stderr) |
@@ -59,7 +53,7 @@ import Control.Arrow (first,second) | |||
59 | import Data.Monoid ( (<>) ) | 53 | import Data.Monoid ( (<>) ) |
60 | import Data.Binary.Put | 54 | import Data.Binary.Put |
61 | 55 | ||
62 | import Data.OpenPGP.Util (verify,fingerprint,generateKey, GenerateKeyParams(..)) | 56 | import Data.OpenPGP.Util (verify, fingerprint, GenerateKeyParams(..)) |
63 | import ScanningParser | 57 | import ScanningParser |
64 | import PEM | 58 | import PEM |
65 | import DotLock | 59 | import DotLock |
@@ -67,13 +61,10 @@ import KeyRing hiding (pemFromPacket) | |||
67 | import Base58 | 61 | import Base58 |
68 | import qualified CryptoCoins | 62 | import qualified CryptoCoins |
69 | -- import Chroot | 63 | -- import Chroot |
70 | import ProcessUtils | ||
71 | import qualified SSHKey as SSH | 64 | import qualified SSHKey as SSH |
72 | import Text.Printf | ||
73 | import qualified DNSKey as DNS | 65 | import qualified DNSKey as DNS |
74 | import Data.Time.Clock.POSIX ( posixSecondsToUTCTime ) | 66 | import Data.Time.Clock.POSIX ( posixSecondsToUTCTime ) |
75 | import Kiki | 67 | import Kiki |
76 | import Debug.Trace | ||
77 | import Network.Socket (SockAddr) | 68 | import Network.Socket (SockAddr) |
78 | import FunctorToMaybe | 69 | import FunctorToMaybe |
79 | 70 | ||