Updated ecc_curve to S.ByteString rather than [Word8]

1 files changed, 4 insertions, 2 deletions

diff --git a/kiki.hs b/kiki.hs
index 6c8ef10..baa187f 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -75,6 +75,8 @@ import Codec.Crypto.ECC.Base
 import Text.Printf
 
 
+instance Default S.ByteString where def = S.empty
+
 isBitCoinKey p =
     isKey p && key_algorithm p == ECDSA && ecc_curve p == oidToDER secp256k1_oid
 
@@ -958,7 +960,7 @@ readKeyFromFile False "PEM" fname = do
                     ,('q',rsaP rsa) -- Note: p & q swapped
                     ,('u',rsaCoefficient rsa)
                     ]
-            , ecc_curve = []
+            , ecc_curve = def
             , s2k_useage = 0
             , s2k = S2K 100 ""
             , symmetric_algorithm = Unencrypted
@@ -1557,7 +1559,7 @@ cannonical_eckey x y = 0x4:pad32(numToBytes x) ++ pad32(numToBytes y) :: [Word8]
     where
         zlen = 32 - length xs
     
-oidToDER ns = b1 : concatMap encode ys :: [Word8]
+oidToDER ns = S.pack $ b1 : concatMap encode ys
  where
     (xs,ys) = splitAt 2 ns
     b1 = fromIntegral $ foldl' (\a b->a*40+b) 0 xs