{"header":{"message":"Use generic SMTP rather than Sendmail-specific mail client.","description":null,"timestamp":"2015-07-04T16:08:54Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","authors":[],"deps":{"hashes":[["6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","Use generic SMTP rather than Sendmail-specific mail client."],["AA",null],["LCBJULKEU4I5FRUGYNRQSHXYLY5X3LRTSNWDCTZLS7YE4BBBDE6AC","Fix swapped default and key in QConfig."],["V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","Enable postgres configuration via environment variable for Heroku."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","Very WIP. Wow."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","THE GREAT RENAMING OF THINGS!"],["M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC","Add invitation email template."],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","Postgres & auth are beginning to function."],["OBFPJS2GHO2PEHBHGEHKIUOUAFIQHPIZXEVD2YIE3ZIE2PVMH5VAC","Project successfully builds and tests under nix."],["PGZJ736CG2E4HXIRYTZTGOMJRX2CHPIFG6H45PPO57EONOWJJ74QC","Update aftok.cfg.example and revise INSTALL instructions"],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["SPJCFHXWUHL5DPU72R6MLMVYCRL4YNOMGTDXRFL6GZPN5KOHAW7AC","Update shell scripts to point to https://aftok.com and prompt for input."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","Completed conversion to snap."],["QO4NFWIYHF45PF7BA4IYGVZZ7CVZDHIV2427MQ6NXWHLIGBHBQCAC","Added sample config file."],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."]],"deps":["LCBJULKEU4I5FRUGYNRQSHXYLY5X3LRTSNWDCTZLS7YE4BBBDE6AC"],"known":["OBFPJS2GHO2PEHBHGEHKIUOUAFIQHPIZXEVD2YIE3ZIE2PVMH5VAC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","PGZJ736CG2E4HXIRYTZTGOMJRX2CHPIFG6H45PPO57EONOWJJ74QC","SPJCFHXWUHL5DPU72R6MLMVYCRL4YNOMGTDXRFL6GZPN5KOHAW7AC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC"]},"hunks":[{"Edit":{"inode":{"change":16,"pos":1},"path":"aftok.cabal","line":116,"atom":{"NewVertex":{"up_context":[{"change":17,"pos":52}],"down_context":[{"change":3,"pos":1248}],"flag":"BLOCK","start":1,"end":17,"inode":{"change":16,"pos":1}}},"contents":[{"Add":{"text":" , mime-mail","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:16"}}]}},{"Edit":{"inode":{"change":16,"pos":1},"path":"aftok.cabal","line":119,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1348}],"down_context":[{"change":3,"pos":3183}],"flag":"BLOCK","start":18,"end":51,"inode":{"change":16,"pos":1}}},"contents":[{"Add":{"text":" , network ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:50"}}]}},{"Replacement":{"inode":{"change":16,"pos":1},"path":"aftok.cabal","line":123,"ins":{"up_context":[{"change":3,"pos":7326}],"down_context":[{"change":3,"pos":1388}],"flag":"BLOCK","start":52,"end":95,"inode":{"change":16,"pos":1}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7326},"to":{"change":3,"start":1349,"end":1388},"introduced_by":3}],"inode":{"change":16,"pos":1}},"ins_contents":[{"Add":{"text":" , smtp-mail >= 0.1.4.5","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:94"}}],"del_contents":[{"Del":{"text":" , sendgrid-haskell >= 1.0","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:1387"}}]}},{"Replacement":{"inode":{"change":18,"pos":19},"path":"conf/aftok.cfg.example","line":25,"ins":{"up_context":[{"change":3,"pos":258}],"down_context":[{"change":3,"pos":307}],"flag":"BLOCK","start":98,"end":186,"inode":{"change":18,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":258},"to":{"change":3,"start":258,"end":307},"introduced_by":3}],"inode":{"change":18,"pos":19}},"ins_contents":[{"Add":{"text":"smtpHost = \"smtp.sendgrid.net\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:128"}},{"Add":{"text":"# smtpPort = 25","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:144"}},{"Add":{"text":"smtpUser = \"whoareyou\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:167"}},{"Add":{"text":"smtpPass = \"iami\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:185"}}],"del_contents":[{"Del":{"text":"sendgridUser = \"example\"","pos":"M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC:282"}},{"Del":{"text":"sendgridKey = \"abcdefg\"","pos":"M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC:306"}}]}},{"Replacement":{"inode":{"change":19,"pos":2457},"path":"lib/Aftok.hs","line":60,"ins":{"up_context":[{"change":3,"pos":7130}],"down_context":[{"change":3,"pos":3399}],"flag":"BLOCK","start":189,"end":237,"inode":{"change":19,"pos":2457}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7130},"to":{"change":3,"start":7130,"end":7179},"introduced_by":3}],"inode":{"change":19,"pos":2457}},"ins_contents":[{"Add":{"text":"randomInvCode = InvitationCode <$> randBytes 32","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:236"}}],"del_contents":[{"Del":{"text":"randomInvCode = InvitationCode <$> randBytes 256","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7178"}}]}},{"Replacement":{"inode":{"change":19,"pos":2457},"path":"lib/Aftok.hs","line":65,"ins":{"up_context":[{"change":3,"pos":7291}],"down_context":[{"change":3,"pos":7315}],"flag":"BLOCK","start":238,"end":261,"inode":{"change":19,"pos":2457}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7291},"to":{"change":3,"start":7291,"end":7315},"introduced_by":3}],"inode":{"change":19,"pos":2457}},"ins_contents":[{"Add":{"text":" if length code == 32","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:260"}}],"del_contents":[{"Del":{"text":" if length code == 256","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7314"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":8,"ins":{"up_context":[{"change":3,"pos":4683}],"down_context":[{"change":3,"pos":4683}],"flag":"BLOCK","start":265,"end":346,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4683},"to":{"change":3,"start":7726,"end":7776},"introduced_by":3}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":"import qualified Network.Socket as NS","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:302"}},{"Add":{"text":"import qualified Network.Mail.SMTP as SMTP","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:345"}}],"del_contents":[{"Del":{"text":"import qualified Network.Sendgrid.Api as Sendgrid","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7775"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":23,"ins":{"up_context":[{"change":3,"pos":5002}],"down_context":[{"change":3,"pos":7850}],"flag":"BLOCK","start":347,"end":376,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5002},"to":{"change":3,"start":7806,"end":7850},"introduced_by":3}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":" , smtpConfig :: SmtpConfig","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:375"}}],"del_contents":[{"Del":{"text":" , sendgridAuth :: Sendgrid.Authentication","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7849"}}]}},{"Edit":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":26,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":5084}],"down_context":[{"change":3,"pos":5084}],"flag":"BLOCK","start":377,"end":538,"inode":{"change":3,"pos":4500}}},"contents":[{"Add":{"text":"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:377"}},{"Add":{"text":"data SmtpConfig = SmtpConfig ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:407"}},{"Add":{"text":" { smtpHost :: NS.HostName","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:435"}},{"Add":{"text":" , smtpPort :: Maybe NS.PortNumber","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:471"}},{"Add":{"text":" , smtpUser :: SMTP.UserName ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:502"}},{"Add":{"text":" , smtpPass :: SMTP.Password ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:533"}},{"Add":{"text":" }","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:537"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":48,"ins":{"up_context":[{"change":3,"pos":5653}],"down_context":[{"change":2,"pos":3}],"flag":"BLOCK","start":539,"end":572,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5653},"to":{"change":3,"start":7890,"end":7925},"introduced_by":3}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":" <*> readSmtpConfig cfg","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:571"}}],"del_contents":[{"Del":{"text":" <*> readSendgridAuth cfg","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7924"}}]}},{"Replacement":{"inode":{"change":3,"pos":4500},"path":"server/Aftok/QConfig.hs","line":51,"ins":{"up_context":[{"change":3,"pos":7969}],"down_context":[{"change":3,"pos":5811}],"flag":"BLOCK","start":573,"end":836,"inode":{"change":3,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7969},"to":{"change":3,"start":7969,"end":8170},"introduced_by":3}],"inode":{"change":3,"pos":4500}},"ins_contents":[{"Add":{"text":"readSmtpConfig :: CT.Config -> IO SmtpConfig","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:617"}},{"Add":{"text":"readSmtpConfig cfg = ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:639"}},{"Add":{"text":" SmtpConfig <$> C.require cfg \"smtpHost\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:681"}},{"Add":{"text":" <*> ((fmap . fmap) fromInteger $ C.lookup cfg \"smtpPort\")","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:752"}},{"Add":{"text":" <*> C.require cfg \"smtpUser\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:794"}},{"Add":{"text":" <*> C.require cfg \"smtpKey\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:835"}}],"del_contents":[{"Del":{"text":"readSendgridAuth :: CT.Config -> IO Sendgrid.Authentication","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8028"}},{"Del":{"text":"readSendgridAuth cfg = ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8052"}},{"Del":{"text":" Sendgrid.Authentication <$> C.require cfg \"sendgridUser\"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8111"}},{"Del":{"text":" <*> C.require cfg \"sendgridKey\"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8169"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":11,"ins":{"up_context":[{"change":3,"pos":8711}],"down_context":[{"change":3,"pos":8761}],"flag":"BLOCK","start":839,"end":897,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8711},"to":{"change":3,"start":8711,"end":8761},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"import Network.Mail.SMTP as SMTP","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:871"}},{"Add":{"text":"import Network.Mail.Mime","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:896"}}],"del_contents":[{"Del":{"text":"import qualified Network.Sendgrid.Api as Sendgrid","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8760"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":61,"ins":{"up_context":[{"change":3,"pos":9326}],"down_context":[{"change":3,"pos":9687}],"flag":"BLOCK","start":898,"end":1578,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9326},"to":{"change":3,"start":9326,"end":9687},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":" liftIO $ sendProjectInviteEmail cfg (p ^. projectName) (u ^. userEmail) toEmail invCode","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:987"}},{"Add":{"text":"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:988"}},{"Add":{"text":"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:989"}},{"Add":{"text":"sendProjectInviteEmail :: QConfig","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1023"}},{"Add":{"text":" -> ProjectName ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1062"}},{"Add":{"text":" -> Email -- Inviting user's email address","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1133"}},{"Add":{"text":" -> Email -- Invitee's email address","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1198"}},{"Add":{"text":" -> InvitationCode ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1240"}},{"Add":{"text":" -> IO ()","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1272"}},{"Add":{"text":"sendProjectInviteEmail cfg pn fromEmail toEmail invCode = ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1331"}},{"Add":{"text":" let SmtpConfig{..} = smtpConfig cfg","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1369"}},{"Add":{"text":" mailer = maybe (sendMailWithLogin smtpHost) (sendMailWithLogin' smtpHost) smtpPort","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1458"}},{"Add":{"text":" in buildProjectInviteEmail (templatePath cfg) pn fromEmail toEmail invCode >>= ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1541"}},{"Add":{"text":" (mailer smtpUser smtpPass)","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1574"}},{"Add":{"text":" ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1577"}}],"del_contents":[{"Del":{"text":" inviteEmail <- liftIO $ ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9352"}},{"Del":{"text":" projectInviteEmail (templatePath cfg) (p ^. projectName) (u ^. userEmail) toEmail invCode","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9446"}},{"Del":{"text":" maybeSuccess <- liftIO $ Sendgrid.sendEmail (sendgridAuth cfg) inviteEmail","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9523"}},{"Del":{"text":" maybe","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9531"}},{"Del":{"text":" (snapError 500 \"The invitation record was created successfully, but the introductory email could not be sent.\")","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9647"}},{"Del":{"text":" (const $ pure ())","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9669"}},{"Del":{"text":" maybeSuccess","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9686"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":77,"ins":{"up_context":[{"change":3,"pos":9688}],"down_context":[{"change":3,"pos":9947}],"flag":"BLOCK","start":1579,"end":1953,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9688},"to":{"change":3,"start":9688,"end":9947},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"buildProjectInviteEmail :: System.IO.FilePath ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1625"}},{"Add":{"text":" -> ProjectName ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1665"}},{"Add":{"text":" -> Email -- Inviting user's email address","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1737"}},{"Add":{"text":" -> Email -- Invitee's email address","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1803"}},{"Add":{"text":" -> InvitationCode ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1846"}},{"Add":{"text":" -> IO Mail","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1881"}},{"Add":{"text":"buildProjectInviteEmail templatePath pn fromEmail toEmail invCode = do","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1952"}}],"del_contents":[{"Del":{"text":"projectInviteEmail :: System.IO.FilePath ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9729"}},{"Del":{"text":" -> ProjectName ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9764"}},{"Del":{"text":" -> Email -> Email ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9802"}},{"Del":{"text":" -> InvitationCode ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9840"}},{"Del":{"text":" -> IO Sendgrid.EmailMessage ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9888"}},{"Del":{"text":"projectInviteEmail templatePath pn from' to' invCode = do","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9946"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":85,"ins":{"up_context":[{"change":3,"pos":9991}],"down_context":[{"change":3,"pos":3685}],"flag":"BLOCK","start":1954,"end":2676,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9991},"to":{"change":3,"start":9991,"end":10124},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10124},"to":{"change":3,"start":441,"end":679},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":679},"to":{"change":3,"start":10188,"end":10222},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10188},"to":{"change":3,"start":10188,"end":10222},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10222},"to":{"change":3,"start":680,"end":717},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":717},"to":{"change":3,"start":10260,"end":10398},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10260},"to":{"change":3,"start":10260,"end":10398},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":" case getStringTemplate \"invitation_email\" templates of","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2010"}},{"Add":{"text":" Nothing -> fail \"Could not find template for invitation email\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2077"}},{"Add":{"text":" Just template ->","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2098"}},{"Add":{"text":" let setAttrs = setAttribute \"from_email\" (fromEmail ^. _Email) .","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2169"}},{"Add":{"text":" setAttribute \"project_name\" pn .","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2223"}},{"Add":{"text":" setAttribute \"to_email\" (toEmail ^. _Email) .","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2290"}},{"Add":{"text":" setAttribute \"inv_code\" (renderInvCode invCode) ","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2360"}},{"Add":{"text":" fromAddr = Address Nothing (\"invitations@aftok.com\")","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2423"}},{"Add":{"text":" toAddr = Address Nothing (toEmail ^. _Email)","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2480"}},{"Add":{"text":" subject = \"Welcome toEmail the \"<>pn<>\" Aftok!\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2539"}},{"Add":{"text":" body = plainTextPart . render $ setAttrs template","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2603"}},{"Add":{"text":" in pure $ SMTP.simpleMail fromAddr [toAddr] [] [] subject [body]","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:2675"}}],"del_contents":[{"Del":{"text":" template <- maybe (fail \"Could not find template for invitation email\") pure $ ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:10072"}},{"Del":{"text":" getStringTemplate \"invitation_email\" templates","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:10123"}},{"Del":{"text":" let setAttrs = setAttribute \"from_email\" (from' ^. _Email) .","pos":"M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC:503"}},{"Del":{"text":" setAttribute \"project_name\" pn .","pos":"M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC:553"}},{"Del":{"text":" setAttribute \"to_email\" (to' ^. _Email) .","pos":"M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC:612"}},{"Del":{"text":" setAttribute \"inv_code\" (renderInvCode invCode) ","pos":"M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC:678"}},{"Del":{"text":" return $ Sendgrid.EmailMessage ","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:10221"}},{"Del":{"text":" { from = \"invitations@aftok.com\"","pos":"M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC:716"}},{"Del":{"text":" , to = unpack $ to' ^. _Email","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:10293"}},{"Del":{"text":" , subject = unpack $ \"Welcome to the \"<>pn<>\" Aftok!\"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:10351"}},{"Del":{"text":" , text = render $ setAttrs template","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:10391"}},{"Del":{"text":" }","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:10397"}}]}}],"owner":"nuttycom","repo":"aftok","token":"kNH+jGyhiARnW19/925auFXDiN3ln7hl7VNEmZLCBWw=","login":null}

…

Dependencies

Change contents

Review