{"header":{"message":"Enable postgres configuration via environment variable for Heroku.","description":null,"timestamp":"2015-05-28T23:38:04Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","authors":[],"deps":{"hashes":[["V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","Enable postgres configuration via environment variable for Heroku."],["AA",null],["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","THE GREAT RENAMING OF THINGS!"],["45QJYWN343MSN5LLXNIXZKWT7QVRVO23XQJUTU5QM24DP7GPSAZAC","Fixing up the README. Still struggling with the ending."],["XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","Adding serveJSON combinator to eliminate some boilerplate from handlers."],["RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","Change to use UUIDs instead of ints for primary keys."],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC","Start of migration back toward snap."],["NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC","THEY CAN TALK!"],["RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","Replacing Snap with Scotty."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","Server now compiles using abstracted SQLite"],["2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","Switch to more modern cabal2nix-based workflow."],["LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","WIP"],["Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC","Adrift."],["7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC","Add 'loggedIntervals' endpoint."],["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","Completed conversion to snap."],["EYGIUUQZSCUCLEF6IFIN6RD3TCSOTTSQEQ2SV7OJRVVNFE6NJQPQC","Restore remainder of endpoints to compiling status."],["I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","Require project permissions for access to most data."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC","Fix remaining type errors after addition of login handler."],["A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","Attempting to improve JSON handling."]],"deps":["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","45QJYWN343MSN5LLXNIXZKWT7QVRVO23XQJUTU5QM24DP7GPSAZAC"],"known":["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC","WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC","7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","EYGIUUQZSCUCLEF6IFIN6RD3TCSOTTSQEQ2SV7OJRVVNFE6NJQPQC","BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC","I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC"]},"hunks":[{"Edit":{"inode":{"change":3,"pos":17955},"path":"notes.md","line":23,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":19096}],"down_context":[],"flag":"BLOCK","start":1,"end":4498,"inode":{"change":3,"pos":17955}}},"contents":[{"Add":{"text":"(12:36:54 PM) nuttycom1: Reiterating my earlier question, this time via StackOverflow: http://stackoverflow.com/questions/30466275/http-basic-auth-in-snap","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:155"}},{"Add":{"text":"(12:41:03 PM) dmj`: nuttycom1: why not use snap's cookie-based auth?","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:224"}},{"Add":{"text":"(12:41:33 PM) carter_cloud: mightybyte: lpsmith did that posgres-simple snaplet transaction bug ever get fixed?","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:338"}},{"Add":{"text":"(12:41:40 PM) nuttycom1: dmj`: my clients aren't necessarily browsers.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:409"}},{"Add":{"text":"(12:41:55 PM) nuttycom1: In fact, they're mostly not browsers.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:472"}},{"Add":{"text":"(12:43:17 PM) dmj`: nuttycom1: are they mobile clients?","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:528"}},{"Add":{"text":"(12:43:31 PM) nuttycom1: dmj`: no, other servers.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:578"}},{"Add":{"text":"(12:48:21 PM) dmj`: nuttycom1: basic auth isn't secure, you're sending the password (base-64 encoded) on every request, it could be fine if it's all over https. But still, a token based system would be more secure. Are these severs internal / external? (i.e. yours or someone elses)","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:861"}},{"Add":{"text":"(12:53:16 PM) nuttycom1: dmj`: Token-based systems are no more secure if they're not over https, but that's a side point; in my experience it's common in any case to use the Authorization headers to carry authentication tokens so that they don't have to pollute the request payload in other ways. ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:1159"}},{"Add":{"text":"(12:54:14 PM) nuttycom1: I have a bunch of CLI tools that access my services via curl and such, which prompt for auth credentials along the way. Using Basic is convenient for these kinds of tools.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:1356"}},{"Add":{"text":"(12:54:49 PM) nuttycom1: All the servers *are* in my control, however. I suppose I could use an X-My-Auth header or some such, but I don't much see the point.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:1515"}},{"Add":{"text":"(12:55:38 PM) nuttycom1: At least, they're under my control at the moment, but obviously the API I'm providing is ultimately going to be accessible to anyone on the open web, so I might as well make things easy for them.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:1736"}},{"Add":{"text":"(12:59:00 PM) mightybyte: carter_cloud: Yes","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:1780"}},{"Add":{"text":"(12:59:32 PM) mightybyte: http://blog.melding-monads.com/2015/02/12/announcing-snaplet-postgresql-simple-0-6/","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:1890"}},{"Add":{"text":"(01:00:42 PM) dmj`: nuttycom1: token based systems only transmit the credentials on the initialize request to generate the token, not on every request, so not sure how it's just as secure. It seems like setting up your own oauth provider would be ideal in this case, especially if you plan on releasing this api to the public. If your servers are not exposed to the outside world, why even have them authenticate against each other, if you're using A","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:2341"}},{"Add":{"text":"(01:00:43 PM) dmj`: you using a VPC? ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:2379"}},{"Add":{"text":"(01:00:49 PM) dmj`: initial*","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:2408"}},{"Add":{"text":"(01:00:52 PM) mightybyte: carter_cloud: I guess that post never hit reddit.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:2484"}},{"Add":{"text":"(01:02:17 PM) mightybyte: nuttycom1: I don't know of a basic auth package for snap (probably in part due to the concerns dmj` has pointed out), but I wouldn't expect that it would be too hard to write.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:2686"}},{"Add":{"text":"(01:02:42 PM) nuttycom1: mightybyte: Hah.... yeah, I provide one as context in my SO question.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:2781"}},{"Add":{"text":"(01:04:49 PM) carter_cloud: mightybyte: btw Stephen Diehl has a neat prototype of a streaming Postgres binding https://github.com/elsen-trading/pgstream","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:2934"}},{"Add":{"text":"(01:07:49 PM) nuttycom1: dmj`: fair enough; I suppose that I can add token handling to the CLI tools, it's just a little more work since I'll have to encrypt the token before it's stored locally, and require the user to decrypt on each request rather than provide credentials. That's probably the right way to go.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:3248"}},{"Add":{"text":"(01:07:51 PM) dmj`: nuttycom1: I can't speak for other token-based systems, but json web tokens are typically encrpyted (HMAC SHA-256), basic auth data is just encoded. So your last line of defense in basic auth is ssl, and your surface area (every request) is much larger. I dunno, if you think basic auth suits your needs then go for it, but it sounds to me like you should become an oauth provider here.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:3655"}},{"Add":{"text":"(01:08:16 PM) mightybyte: nuttycom1: responded","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:3702"}},{"Add":{"text":"(01:09:10 PM) nuttycom1: mightybyte: thanks!","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:3747"}},{"Add":{"text":"(01:10:45 PM) dmj`: nuttycom1: yea, you can create your own key server! Then create tcp connections from your key server to all other api servers. You should change the key somewhat frequently (This secret key is used to hash all tokens). So your key server can broadcast the new secret to all servers via tcp, then (if you're using haskell and not that node.js single-threaded stuff) you could migrate everyones tokens over to the new key transparen","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4198"}},{"Add":{"text":"(01:10:45 PM) dmj`: if new key has been sent, then rehash with it, and put it in the header).","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4292"}},{"Add":{"text":"(01:11:16 PM) dmj`: only one-thread, I don't know how people do it","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4359"}},{"Add":{"text":"(01:11:20 PM) dmj`: one thread*","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4391"}},{"Add":{"text":"(01:12:18 PM) nuttycom1: Interesting, thanks dmj`. Looks like I have some additional investigation to do.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4497"}}]}},{"FileAdd":{"meta":{"basename":"QConfig.hs","metadata":0},"context":[{"change":2,"pos":2063}],"contents":[{"Add":{"text":"module Aftok.QConfig where","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4527"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4528"}},{"Add":{"text":"import ClassyPrelude ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4550"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4551"}},{"Add":{"text":"import qualified Data.ByteString.Char8 as C","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4595"}},{"Add":{"text":"import qualified Data.Configurator as C","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4635"}},{"Add":{"text":"import qualified Data.Configurator.Types as CT","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4682"}},{"Add":{"text":"import System.Environment","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4708"}},{"Add":{"text":"import System.IO(FilePath)","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4735"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4736"}},{"Add":{"text":"import Snap.Core","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4753"}},{"Add":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4790"}},{"Add":{"text":"import qualified Snap.Http.Server.Config as SC","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4837"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4838"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4839"}},{"Add":{"text":"data QConfig = QConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4862"}},{"Add":{"text":" { hostname :: ByteString","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4889"}},{"Add":{"text":" , port :: Int","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4905"}},{"Add":{"text":" , authSiteKey :: System.IO.FilePath","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4943"}},{"Add":{"text":" , cookieTimeout :: Maybe Int","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:4974"}},{"Add":{"text":" , pgsConfig :: PGSConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5001"}},{"Add":{"text":" -- , sslCert :: FilePath","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5028"}},{"Add":{"text":" -- , sslKey :: FilePath","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5054"}},{"Add":{"text":" -- , dbName :: String","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5078"}},{"Add":{"text":" } ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5083"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5084"}},{"Add":{"text":"loadQConfig :: System.IO.FilePath -> IO QConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5132"}},{"Add":{"text":"loadQConfig cfgFile = do ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5158"}},{"Add":{"text":" env <- getEnvironment","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5182"}},{"Add":{"text":" cfg <- C.load [C.Required cfgFile] ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5220"}},{"Add":{"text":" let dbEnvCfg = pgsDefaultConfig . C.pack <$> lookup \"DATABASE_URL\" env","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5293"}},{"Add":{"text":" readQConfig cfg dbEnvCfg","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5320"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5321"}},{"Add":{"text":"readQConfig :: CT.Config -> Maybe PGSConfig -> IO QConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5379"}},{"Add":{"text":"readQConfig cfg pc = ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5401"}},{"Add":{"text":" QConfig <$> C.lookupDefault \"localhost\" cfg \"hostname\"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5458"}},{"Add":{"text":" <*> C.lookupDefault 8000 cfg \"port\" ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5505"}},{"Add":{"text":" <*> C.require cfg \"siteKey\"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5543"}},{"Add":{"text":" <*> C.lookup cfg \"cookieTimeout\" ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5587"}},{"Add":{"text":" <*> maybe (mkPGSConfig $ C.subconfig \"db\" cfg) pure pc","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5652"}},{"Add":{"text":" -- <*> (fmap fpFromText $ C.require cfg \"sslCert\")","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5713"}},{"Add":{"text":" -- <*> (fmap fpFromText $ C.require cfg \"sslKey\")","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5773"}},{"Add":{"text":" -- <*> C.require cfg \"db\" ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5810"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5811"}},{"Add":{"text":"baseSnapConfig :: MonadSnap m => QConfig -> SC.Config m a -> SC.Config m a","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5886"}},{"Add":{"text":"baseSnapConfig qc = ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5907"}},{"Add":{"text":" SC.setHostname (hostname qc) . ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5941"}},{"Add":{"text":" SC.setPort (port qc) ","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5965"}},{"Add":{"text":" --SC.setSSLPort (port qc) .","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5995"}},{"Add":{"text":" --SC.setSSLCert (fpToString $ sslCert qc) .","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6041"}},{"Add":{"text":" --SC.setSSLKey (fpToString $ sslKey cfg)","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6084"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6085"}},{"Add":{"text":"-- configuration specific to Snap, commandLineConfig arguments override","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6157"}},{"Add":{"text":"-- config file.","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6173"}},{"Add":{"text":"snapConfig :: QConfig -> IO (SC.Config Snap a)","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6220"}},{"Add":{"text":"snapConfig qc = SC.commandLineConfig $ baseSnapConfig qc SC.emptyConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6292"}},{"Add":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6293"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":1,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1040},"to":{"change":4,"start":1040,"end":1109},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":89},"to":{"change":4,"start":5255,"end":5256},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":128},"to":{"change":4,"start":5255,"end":5256},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1109},"to":{"change":4,"start":5255,"end":5256},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1314},"to":{"change":4,"start":5255,"end":5256},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1459},"to":{"change":4,"start":5255,"end":5256},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7548},"to":{"change":4,"start":5255,"end":5256},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5255},"to":{"change":4,"start":5255,"end":5256},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":"{-# LANGUAGE FlexibleInstances #-} ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1075"}},{"Del":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1108"}},{"Del":{"text":"","pos":"ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC:5255"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":5,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":35},"to":{"change":4,"start":112,"end":152},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1165},"to":{"change":4,"start":112,"end":152},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2439},"to":{"change":4,"start":112,"end":152},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":152},"to":{"change":4,"start":123,"end":170},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":"import qualified Data.Configurator as C","pos":"Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC:151"}},{"Del":{"text":"import qualified Data.Configurator.Types as CT","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:169"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":6,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":626},"to":{"change":4,"start":7720,"end":7747},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":"import System.IO(FilePath)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:7746"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":10,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":943}],"down_context":[{"change":2,"pos":3135}],"flag":"BLOCK","start":6333,"end":6354,"inode":{"change":4,"pos":5188}}},"contents":[{"Add":{"text":"import Aftok.QConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6353"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":18,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1609},"to":{"change":4,"start":1609,"end":1633},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1633},"to":{"change":4,"start":171,"end":218},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":"import Snap.Http.Server","pos":"WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC:1632"}},{"Del":{"text":"import qualified Snap.Http.Server.Config as SC","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:217"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":22,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":218},"to":{"change":4,"start":5492,"end":5493},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1477},"to":{"change":4,"start":5492,"end":5493},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1633},"to":{"change":4,"start":5492,"end":5493},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":2593},"to":{"change":4,"start":5492,"end":5493},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7874},"to":{"change":4,"start":5492,"end":5493},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5492},"to":{"change":4,"start":5492,"end":5493},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1932},"to":{"change":4,"start":1932,"end":1955},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1955},"to":{"change":4,"start":340,"end":383},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":383},"to":{"change":4,"start":7748,"end":7786},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7786},"to":{"change":4,"start":7903,"end":7934},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7903},"to":{"change":4,"start":7903,"end":7934},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7934},"to":{"change":4,"start":42,"end":95},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":383},"to":{"change":4,"start":42,"end":95},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":95},"to":{"change":4,"start":7935,"end":7959},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7959},"to":{"change":4,"start":309,"end":314},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":309},"to":{"change":4,"start":309,"end":314},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":"","pos":"ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC:5492"}},{"Del":{"text":"data QConfig = QConfig","pos":"WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC:1954"}},{"Del":{"text":" { hostname :: ByteString","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:366"}},{"Del":{"text":" , port :: Int","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:382"}},{"Del":{"text":" , authSiteKey :: System.IO.FilePath","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:7785"}},{"Del":{"text":" , cookieTimeout :: Maybe Int","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7933"}},{"Del":{"text":" -- , sslCert :: FilePath","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:68"}},{"Del":{"text":" -- , sslKey :: FilePath","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:94"}},{"Del":{"text":" -- , dbName :: String","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7958"}},{"Del":{"text":" } ","pos":"Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC:313"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":27,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8257},"to":{"change":4,"start":8257,"end":8316},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":" --simpleHttpServe sconf $ runReaderT (site sqliteQDB) db","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8315"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":34,"ins":{"up_context":[{"change":4,"pos":3244}],"down_context":[{"change":4,"pos":8692}],"flag":"BLOCK","start":6355,"end":6407,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":3244},"to":{"change":4,"start":8653,"end":8692},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8653},"to":{"change":4,"start":8653,"end":8692},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" pgs <- nestSnaplet \"db\" db $ pgsInit' pgsConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:6406"}}],"del_contents":[{"Del":{"text":" pgs <- nestSnaplet \"db\" db pgsInit","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8691"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":64,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":252},"to":{"change":4,"start":9050,"end":9051},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9050},"to":{"change":4,"start":9050,"end":9051},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9051},"to":{"change":4,"start":8019,"end":8067},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":8067},"to":{"change":4,"start":469,"end":495},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":469},"to":{"change":4,"start":469,"end":495},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":495},"to":{"change":4,"start":3939,"end":3976},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":3976},"to":{"change":4,"start":496,"end":633},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":555},"to":{"change":4,"start":496,"end":633},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":633},"to":{"change":4,"start":96,"end":143},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":143},"to":{"change":4,"start":3977,"end":4016},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":4016},"to":{"change":4,"start":9110,"end":9154},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9110},"to":{"change":4,"start":9110,"end":9154},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":9154},"to":{"change":4,"start":143,"end":264},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":143},"to":{"change":4,"start":143,"end":264},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":264},"to":{"change":4,"start":9155,"end":9192},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":9192},"to":{"change":4,"start":829,"end":962},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":829},"to":{"change":4,"start":829,"end":962},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":962},"to":{"change":4,"start":265,"end":411},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9050"}},{"Del":{"text":"loadQConfig :: System.IO.FilePath -> IO QConfig","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8066"}},{"Del":{"text":"loadQConfig cfgFile = do ","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:494"}},{"Del":{"text":" cfg <- C.load [C.Required cfgFile]","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:3975"}},{"Del":{"text":" parseQConfig cfg","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:514"}},{"Del":{"text":"","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:515"}},{"Del":{"text":"parseQConfig :: CT.Config -> IO QConfig","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:555"}},{"Del":{"text":"parseQConfig cfg = ","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:575"}},{"Del":{"text":" QConfig <$> C.lookupDefault \"localhost\" cfg \"hostname\"","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:632"}},{"Del":{"text":" <*> C.lookupDefault 8000 cfg \"port\" ","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:142"}},{"Del":{"text":" <*> C.require cfg \"siteKey\"","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4015"}},{"Del":{"text":" <*> C.lookup cfg \"cookieTimeout\" ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9153"}},{"Del":{"text":" -- <*> (fmap fpFromText $ C.require cfg \"sslCert\")","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:203"}},{"Del":{"text":" -- <*> (fmap fpFromText $ C.require cfg \"sslKey\")","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:263"}},{"Del":{"text":" -- <*> C.require cfg \"db\" ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9191"}},{"Del":{"text":"","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:829"}},{"Del":{"text":"baseSnapConfig :: MonadSnap m => QConfig -> SC.Config m a -> SC.Config m a","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:904"}},{"Del":{"text":"baseSnapConfig cfg = ","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:926"}},{"Del":{"text":" SC.setHostname (hostname cfg) . ","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:961"}},{"Del":{"text":" SC.setPort (port cfg) ","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:289"}},{"Del":{"text":" --SC.setSSLPort (port cfg) .","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:320"}},{"Del":{"text":" --SC.setSSLCert (fpToString $ sslCert cfg) .","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:367"}},{"Del":{"text":" --SC.setSSLKey (fpToString $ sslKey cfg)","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:410"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":65,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1078},"to":{"change":4,"start":9193,"end":9240},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":9240},"to":{"change":4,"start":1126,"end":1197},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1126},"to":{"change":4,"start":1126,"end":1197},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1197},"to":{"change":4,"start":1121,"end":1122},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":"snapConfig :: QConfig -> IO (SC.Config Snap a)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9239"}},{"Del":{"text":"snapConfig cfg = SC.commandLineConfig $ baseSnapConfig cfg emptyConfig","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:1196"}},{"Del":{"text":"","pos":"XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC:1121"}}]}}],"owner":"nuttycom","repo":"aftok","token":"DCJZxDWC47lgAr7jI06vmjBcjYEbyaqd9J1qTIJC0sk=","login":null}

…

Dependencies

Change contents

Review