Extending command line options with Haskell Snap -

-

i have acid-state backend complements snap website. running in own process , snap web server requires ip address connect it. debugging , deployment purposes able pass in ip address command line argument when running compiled snap application. ip address accessible inside snapletinit monad acid state handler gets called.

how can extend command line parameter system in snap account this?

ideally, i'd like.

./app -ip 192.168.0.2 -p 8080 -e prod +rts -i0 -a4m -qg1

then apply this.

app :: snapletinit app app app = makesnaplet "app" "snapplication" nothing $     ip <- getconfig "ip"     d <- nestsnaplet "acid" acid $ acidinitremote ip     return $ app d

i recommend changing acid state snaplet read it's ip config instead of command line. configs in snap set it'll load whatever pass -e argument on command line. example, starting -e prod load snaplet/acidstate/prod.conf , starting no -e or -e devel load snaplet/acidstate/devel.conf. helps keep environmental settings instead of allowing possible combination of command line flags.

here's an example 1 of snaplets:

initstripe :: snapletinit b stripestate initstripe = makesnaplet "stripe" "stripe credit card payment" nothing $   config <- getsnapletuserconfig    (stripestate, errors) <- runwritert $     secretkey <- logerr "must specify strip secret key"  $ c.lookup config "secret_key"     publickey <- logerr "must specify strip public key"  $ c.lookup config "public_key"     clientid  <- logerr "must specify strip client id"   $ c.lookup config "client_id"     version   <- . maybe v20110915d otherversion <$> liftio (c.lookup config "version")     let cafilepath = "" -- unused stripe vestigial in haskell library.      return $ stripestate <$> (stripeconfig <$> (secretkey <$> secretkey) <*> cafilepath <*> version) <*> (publickey <$> publickey) <*> clientid   return $ frommaybe (error $ intercalate "\n" errors) stripestate

Comments

Post a Comment

Popular posts from this blog

python - Subclassed QStyledItemDelegate ignores Stylesheet -

-
i'm trying subclass qstyleditemdelegate remove focus rectangle in qcombobox . even though i'm calling base implementation of paint function , nothing else, result different. looks if parts of style-sheet influence bounding box of item taken consideration. class pstyleditemdelegate(qstyleditemdelegate): def __init__(self, *args, **kwds): super(pstyleditemdelegate, self).__init__(*args, **kwds) def paint(self, *args, **kwargs): qstyleditemdelegate.paint(*args, **kwargs) what have paint unmodified qstyleditemdelegate ? as suggested tried replacing pyside pyqt4 , works, appears bug. update pyside 1.1.2 1.2.1 result same. unfortunately switch breaks other parts of code, if there no other suggestions i'm going accept answer. edit bug tracked here
Read more

java - HttpClient 3.1 Connection pooling vs HttpClient 4.3.2 -

-
i have used httpclient3.1(java) connection pooling below : import org.apache.commons.httpclient.httpclient; import org.apache.commons.httpclient.multithreadedhttpconnectionmanager; import org.apache.commons.httpclient.params.httpclientparams; import org.apache.commons.httpclient.params.httpmethodparams; import org.apache.log4j.logger; public class httpclientmanager { private static logger logger = logger.getlogger(httpclientmanager.class); private static multithreadedhttpconnectionmanager connectionmanager = new multithreadedhttpconnectionmanager(); private static httpclientparams clientparams = new httpclientparams(); static { try { clientparams.makelenient(); clientparams.setauthenticationpreemptive(false); clientparams.setparameter(httpmethodparams.so_timeout, new integer(30000)); // set so_timeout clientparams.setparameter(httpmethodparams.head_body_check_timeout, new integer(3000)); // head responses ...
Read more

node.js - StackOverflow API not returning JSON -

-
i using node.js script gather data stackoverflow. know responses gzipped, put code in should take care of that. script follows: var request = require('request'); var zlib = require('zlib'); function getstackoverflowresponse(url, callback){ request(url, {encoding: null}, function(err, response, body){ if(response.headers['content-encoding'] == 'gzip'){ zlib.gunzip(body, function(err, dezipped) { callback(dezipped); }); } else { callback(body); } }); } var url = "https://api.stackexchange.com/docs/questions#pagesize=2&order=desc&min=2014-01-04&max=2014-02-02&sort=activity&tagged=apigee&filter=default&site=stackoverflow&run=true"; getstackoverflowresponse(url, function(questions) { console.log(questions); }); instead of getting json output, i'm getting following response: buffer 0d 0a 0d 0a 0d 0a 0d 0a 3c 21 44 4f 43 54 59 50 45 20 48...
Read more