jQuery on Haskell

JQuery.hs

j <- select "p" $ do
       addHTMLClass "ohmy" -- internally using s2js
       show $ do -- internal monad (different one)
         speed Slow
         easing 1024
         appendCallback $ do
           -- some callback
         appendCallback otherIOAction
         -- other attributes are Nothing by default