getPrice :: Handler String
getPrice = do
  b <- block
  t <- tick
  let s = hashPrice b t
  return $ showEFloat (Just 3) (fromRat s) ""
getPrice :: Handler String
getPrice = do
  b <- block
  t <- tick
  let s = hashPrice b t
  return $ showEFloat (Just 3) (fromRat s) ""
getPrice = do
  b <- block
  t <- tick
  let s = hashPrice b t
  return $ showEFloat (Just 3) (fromRat s) ""