diff options
author | joe <joe@jerkface.net> | 2013-12-15 00:30:53 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2013-12-15 00:30:53 -0500 |
commit | e5275d82b9858d446b04efefb690da8553ee96d0 (patch) | |
tree | 1d930ddf41991b7170322d2fed3dadd0d3fe490f /kiki.hs | |
parent | 582edd389beae2a0d3f5d45d8f4a87471d554763 (diff) |
Migrated from OpenPGP-CryptoAPI to openpgp-util
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -23,8 +23,7 @@ import Control.Monad | |||
23 | import qualified Text.Show.Pretty as PP | 23 | import qualified Text.Show.Pretty as PP |
24 | import Text.PrettyPrint as PP hiding ((<>)) | 24 | import Text.PrettyPrint as PP hiding ((<>)) |
25 | import Data.List | 25 | import Data.List |
26 | -- import Data.OpenPGP.CryptoAPI (verify,fingerprint,sign,decryptSecretKey) | 26 | import Data.OpenPGP.Util (verify,fingerprint,decryptSecretKey,pgpSign) |
27 | import OpenPGP | ||
28 | import Data.Ord | 27 | import Data.Ord |
29 | import Data.Maybe | 28 | import Data.Maybe |
30 | import Data.Bits | 29 | import Data.Bits |
@@ -714,7 +713,7 @@ expandPath path [] = [] | |||
714 | 713 | ||
715 | readPacketsFromFile :: FilePath -> IO Message | 714 | readPacketsFromFile :: FilePath -> IO Message |
716 | readPacketsFromFile fname = do | 715 | readPacketsFromFile fname = do |
717 | warn $ fname ++ ": reading..." | 716 | -- warn $ fname ++ ": reading..." |
718 | input <- L.readFile fname | 717 | input <- L.readFile fname |
719 | return $ | 718 | return $ |
720 | case decodeOrFail input of | 719 | case decodeOrFail input of |