haskell - Need help to understand the usage of `liftBase` -


i reading through (for self studying purpose) source code of bryan o'sullivan's popular pool library.

and have question in function takeresource, ask haskell experts here. function defined as:

takeresource :: pool -> io (a, localpool a) takeresource pool@pool{..} =   local@localpool{..} <- getlocalpool pool   resource <- liftbase . join . atomically $   ents <- readtvar entries   case ents of     (entry{..}:es) -> writetvar entries es >> return (return entry)     [] ->       used <- readtvar inuse       when (used == maxresources) retry       writetvar inuse $! used + 1       return $         create `onexception` atomically (modifytvar_ inuse (subtract 1))   return (resource, local)

the line having problem is

... resource <- liftbase . join . atomically $ ...

why here usage of liftbase necessary? can write instead

... resource <- join . atomically $ ...

the compiler accepts both versions. missing here trivial or why liftbase here necessary?

thank in advance tips!

i think i'm responsible that. no, there's no purpose there, can removed. think necessary before refactoring. send pull request , part of awesome library :)


Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more

Website Login Issue developed in magento -

i have website developed using magento . able login. right now, login failed. infact operations interacts user table failing. need know issue. how figure out? first clear try clear log file second make sure have not upgraded magento and 3rd make sure db accessible in magento -harry p
Read more