bookLiquidity :: Book -> ShareCount
bookLiquidity Book{..} = sum (map bSize (S.toList bBuyOrders)) + sum (map sSize (S.toList bSellOrders))
bookLiquidity :: Book -> ShareCount
bookLiquidity Book{..} = sum (map bSize (S.toList bBuyOrders)) + sum (map sSize (S.toList bSellOrders))
bookLiquidity Book{..} = sum (map bSize (S.toList bBuyOrders)) + sum (map sSize (S.toList bSellOrders))