WordpressIsEatingMyHaskell

WordpressIsEatingMyHaskell.hs

let result = do
  account <- getAccount person
  lastTransaction <- getLastTransaction account
  getAmount lastTransaction

case result of
  Nothing -> putStrLn "Oh noes!"
  Just a  -> putStrLn ("The amount was: " ++ show a)

-- Or really, I'd actually do this:

let result = getAmount =<< getLastTransaction =<< getAccount person
case result of
  Nothing -> putStrLn "Oh noes!"
  Just a  -> putStrLn ("The amount was: " ++ show a)