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 | |
parent | 346270f1fb636152e518b23ad39e719494744790 (diff) |
example script and Makefile
-rw-r--r-- | Makefile | 8 | ||||
-rw-r--r-- | examples/verify.hs | 14 |
2 files changed, 22 insertions, 0 deletions
diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..20e769f --- /dev/null +++ b/Makefile | |||
@@ -0,0 +1,8 @@ | |||
1 | GHCFLAGS=-Wall -XNoCPP -fno-warn-name-shadowing -XHaskell98 | ||
2 | |||
3 | verify: examples/verify.hs | ||
4 | ghc --make $(GHCFLAGS) -o $@ $^ | ||
5 | |||
6 | clean: | ||
7 | find -name '*.o' -o -name '*.hi' | xargs $(RM) | ||
8 | $(RM) verify | ||
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 | ||