diff options
author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-08 23:32:46 -0500 |
---|---|---|
committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-08 23:32:46 -0500 |
commit | 6991ca767e76e639c19a2bbed889fe4b7a9da77b (patch) | |
tree | 7c0561dee3eac1071b73c5557f186f9b93dc8217 /examples | |
parent | 346270f1fb636152e518b23ad39e719494744790 (diff) |
example script and Makefile
Diffstat (limited to 'examples')
-rw-r--r-- | examples/verify.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/examples/verify.hs b/examples/verify.hs new file mode 100644 index 0000000..b123bd1 --- /dev/null +++ b/examples/verify.hs | |||
@@ -0,0 +1,14 @@ | |||
1 | import System (getArgs) | ||
2 | |||
3 | import Data.Binary | ||
4 | |||
5 | import qualified Data.OpenPGP as OpenPGP () | ||
6 | import qualified Data.OpenPGP.Crypto as OpenPGP | ||
7 | |||
8 | main :: IO () | ||
9 | main = do | ||
10 | argv <- getArgs | ||
11 | keys <- decodeFile (argv !! 0) | ||
12 | message <- decodeFile (argv !! 1) | ||
13 | -- Just verify first signature | ||
14 | print $ OpenPGP.verify keys message 0 | ||