{"header":{"message":"Utility methods for reading key & cert data.","description":null,"timestamp":"2017-02-02T04:11:12Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC","authors":[],"deps":{"hashes":[["MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC","Utility methods for reading key & cert data."],["AA",null],["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","Implement core of payments/billing infrastructure."],["Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","stylish-haskell reformatting"],["6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","Use generic SMTP rather than Sendmail-specific mail client."],["V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","Enable postgres configuration via environment variable for Heroku."],["NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","Reformat via stylish-haskell"],["LCBJULKEU4I5FRUGYNRQSHXYLY5X3LRTSNWDCTZLS7YE4BBBDE6AC","Fix swapped default and key in QConfig."],["DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","Initial work on payments API"],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."]],"deps":["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC"],"known":["V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","LCBJULKEU4I5FRUGYNRQSHXYLY5X3LRTSNWDCTZLS7YE4BBBDE6AC","6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC"]},"hunks":[{"Edit":{"inode":{"change":11,"pos":1},"path":"aftok.cabal","line":164,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1612}],"down_context":[],"flag":"BLOCK","start":1,"end":29,"inode":{"change":11,"pos":1}}},"contents":[{"Add":{"text":" , x509","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:11"}},{"Add":{"text":" , x509-store","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:28"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":9,"ins":{"up_context":[{"change":3,"pos":6698}],"down_context":[{"change":3,"pos":6698}],"flag":"BLOCK","start":33,"end":177,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6698},"to":{"change":2,"start":16708,"end":16760},"introduced_by":2}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":"import Data.X509","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:59"}},{"Add":{"text":"import Data.X509.File (readSignedObject, readKeyFile)","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:123"}},{"Add":{"text":"import qualified Network.Bippy.Types as BT","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:176"}}],"del_contents":[{"Del":{"text":"import qualified Network.Bippy.Types as B","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16759"}}]}},{"Edit":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":21,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":4839}],"down_context":[{"change":3,"pos":4840}],"flag":"BLOCK","start":178,"end":217,"inode":{"change":3,"pos":4500}}},"contents":[{"Add":{"text":"import qualified Aftok.Payments as AP","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:215"}},{"Add":{"text":"","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:216"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":30,"ins":{"up_context":[{"change":3,"pos":7190}],"down_context":[{"change":3,"pos":7190}],"flag":"BLOCK","start":218,"end":253,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7190},"to":{"change":2,"start":16761,"end":16792},"introduced_by":2}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":" , billingConfig :: BillingConfig","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:252"}}],"del_contents":[{"Del":{"text":" , btcConfig :: BtcConfig","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16791"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":41,"ins":{"up_context":[{"change":3,"pos":5085}],"down_context":[{"change":2,"pos":16851}],"flag":"BLOCK","start":254,"end":396,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5085},"to":{"change":2,"start":16793,"end":16851},"introduced_by":2}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":"data BillingConfig = BillingConfig","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:288"}},{"Add":{"text":" { network :: BT.Network","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:314"}},{"Add":{"text":" , signingKeyFile :: System.IO.FilePath","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:355"}},{"Add":{"text":" , certsFile :: System.IO.FilePath","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:391"}},{"Add":{"text":" }","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:395"}}],"del_contents":[{"Del":{"text":"data BtcConfig = BtcConfig ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16820"}},{"Del":{"text":" { btcNetwork :: B.Network }","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16850"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":62,"ins":{"up_context":[{"change":3,"pos":572}],"down_context":[{"change":3,"pos":3}],"flag":"BLOCK","start":397,"end":433,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":572},"to":{"change":2,"start":16853,"end":16885},"introduced_by":2}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":" <*> readBillingConfig cfg","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:432"}}],"del_contents":[{"Del":{"text":" <*> readBtcConfig cfg","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16884"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":72,"ins":{"up_context":[{"change":3,"pos":5812}],"down_context":[{"change":2,"pos":17124}],"flag":"BLOCK","start":434,"end":813,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5812},"to":{"change":2,"start":16886,"end":17124},"introduced_by":2}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":"readBillingConfig :: CT.Config -> IO BillingConfig","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:484"}},{"Add":{"text":"readBillingConfig cfg = ","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:509"}},{"Add":{"text":" BillingConfig <$> (parseNetwork <$> C.require cfg \"network\")","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:572"}},{"Add":{"text":" <*> C.require cfg \"signingKeyFile\"","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:623"}},{"Add":{"text":" <*> C.require cfg \"certsFile\"","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:669"}},{"Add":{"text":" where parseNetwork :: String -> BT.Network","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:714"}},{"Add":{"text":" parseNetwork \"main\" = BT.MainNet","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:755"}},{"Add":{"text":" parseNetwork _ = BT.TestNet","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:791"}},{"Add":{"text":" ","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:812"}}],"del_contents":[{"Del":{"text":"readBtcConfig :: CT.Config -> IO BtcConfig","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16928"}},{"Del":{"text":"readBtcConfig cfg = ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16949"}},{"Del":{"text":" let parseNetwork :: String -> B.Network","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16991"}},{"Del":{"text":" parseNetwork \"main\" = B.MainNet","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17029"}},{"Del":{"text":" parseNetwork _ = B.TestNet","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17062"}},{"Del":{"text":" in (BtcConfig . parseNetwork) <$> C.require cfg \"network\"","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17123"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":92,"ins":{"up_context":[{"change":3,"pos":6294}],"down_context":[],"flag":"BLOCK","start":814,"end":1352,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6294},"to":{"change":2,"start":17186,"end":17187},"introduced_by":2}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":"toBillingConfig :: BillingConfig -> IO AP.BillingConfig","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:869"}},{"Add":{"text":"toBillingConfig c = do","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:892"}},{"Add":{"text":" privKeys <- readKeyFile (signingKeyFile c)","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:939"}},{"Add":{"text":" pkiEntries <- readSignedObject (certsFile c)","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:986"}},{"Add":{"text":" privKey <- case headMay privKeys of","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1024"}},{"Add":{"text":" Just (PrivKeyRSA k) -> pure k","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1058"}},{"Add":{"text":" Just (PrivKeyDSA _) -> fail \"DSA keys not supported for payment request signing.\"","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1144"}},{"Add":{"text":" Nothing -> fail $ \"No keys found in private key file \" <> signingKeyFile c","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1235"}},{"Add":{"text":" let pkiData = BT.X509SHA256 . CertificateChain $ pkiEntries","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1297"}},{"Add":{"text":" pure $ AP.BillingConfig (network c) privKey pkiData","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1351"}}],"del_contents":[{"Del":{"text":"","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17186"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":19,"ins":{"up_context":[{"change":3,"pos":10163}],"down_context":[{"change":2,"pos":17779}],"flag":"BLOCK","start":1355,"end":1414,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10163},"to":{"change":2,"start":17735,"end":17779},"introduced_by":2}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":" createPaymentRequests ptime memogen urigen plgen uid pid","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1413"}}],"del_contents":[{"Del":{"text":" widx <- snapEval $ fc (ReadWorkIndex pid)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17778"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":23,"ins":{"up_context":[{"change":2,"pos":17951}],"down_context":[{"change":2,"pos":17952}],"flag":"BLOCK","start":1415,"end":1418,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3022},"to":{"change":3,"start":10295,"end":10307},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":17951},"to":{"change":3,"start":10295,"end":10307},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10295},"to":{"change":3,"start":10295,"end":10307},"introduced_by":3}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":" ","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1417"}}],"del_contents":[{"Del":{"text":" undefined","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:10306"}}]}}],"owner":"nuttycom","repo":"aftok","token":"ZcE8szVwcIBOJUAtUCoqQPllGOSL+qo9tNvzTcmw3CE=","login":null}

…

Dependencies

Change contents

Review