michaelschade · August 7, 2011 22:33
diff --git a/jonathanscard-example.hs b/jonathanscard-example.hs
 import Control.Monad     ( liftM )
 import Web.JonathansCard ( latest )

 main :: IO ()
 main  = putStrLn . show =<< latest

 {- Outputs:

 Right (Balance {balAmount = 28.08, balBalanceId = 25573, balCreated = Just
 2011-08-08 00:56:03 UTC, balMessage = "My balance is $28.08 as of Aug 7th at
 8:56pm EDT (America/New_York)"})

 -}
	import Control.Monad ( liftM )
	import Web.JonathansCard ( latest )

	main :: IO ()
	main = putStrLn . show =<< latest

	{- Outputs:

	Right (Balance {balAmount = 28.08, balBalanceId = 25573, balCreated = Just
	2011-08-08 00:56:03 UTC, balMessage = "My balance is $28.08 as of Aug 7th at
	8:56pm EDT (America/New_York)"})

	-}