sitInc    = 0
 , depositDec    = 0
 , bindingFee    = 0
 , bindingTax    = 0
 , freeCash      = 1482
 }

--
-- Hspecテスト
--
spec :: Spec
spec = do
    --
    describe "scrapingFraHomeAnnounce" $

test01StkHavingList = "https%3A%2F%2Fwww.deal.matsui.co.jp%2Fservlet%2FITS%2Fstock%2FStkHavingList.utf8.01.html"
test01StkHavingList = "https%3A%2F%2Fwww.deal.matsui.co.jp%2Fservlet%2FITS%2Fstock%2FStkHavingList.utf8.01.html"