Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: c75a327037
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (11 sloc) 0.317 kb
import System (getArgs)
import Data.Binary
import qualified Data.OpenPGP as OpenPGP ()
import qualified Data.OpenPGP.Crypto as OpenPGP
main :: IO ()
main = do
argv <- getArgs
keys <- decodeFile (argv !! 0)
message <- decodeFile (argv !! 1)
-- Just verify first signature
print $ OpenPGP.verify keys message 0
Jump to Line
Something went wrong with that request. Please try again.