diff options
-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 | ||