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

SQL: Divide the sum of values in one table with the count of rows in another -

-
is possible to, in single query, sum bunch of values in 1 table, , divide count of rows in another? there common id/key in both tables... fyi, win points least info provided in question. answer it's possible...here psuedo code since i'm guessing @ tables , columns select summing / counting whynot (select id, sum(whatever) summing where_ever ) inner join (select id, count(1) counting what_ever)b on a.id = b.id question = 'vague' group a.id
Read more