From 006d1f0b7f36c25a91006fce24cbe76416fcee86 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sat, 13 Jul 2019 15:22:45 -0400 Subject: no cpp needed, since my love is unconditional --- lib/Compat.hs | 5 ----- 1 file changed, 5 deletions(-) (limited to 'lib/Compat.hs') diff --git a/lib/Compat.hs b/lib/Compat.hs index 3b77851..9c46cb9 100644 --- a/lib/Compat.hs +++ b/lib/Compat.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} module Compat where import Data.Bits @@ -8,8 +7,6 @@ import Data.ASN1.Encoding import Data.ASN1.BinaryEncoding import Crypto.PubKey.RSA as RSA -#if defined(VERSION_cryptonite) - instance ASN1Object PublicKey where toASN1 pubKey = \xs -> Start Sequence : IntVal (public_n pubKey) @@ -41,8 +38,6 @@ instance ASN1Object PublicKey where fromASN1 _ = Left "fromASN1: RSA.PublicKey: unexpected format" -#endif - toPositive :: Integer -> Integer toPositive int | int < 0 = uintOfBytes $ bytesOfInt int -- cgit v1.2.3