recentTick :: Handler (Maybe Tick)
recentTick = do
  thr <- fiveMinAgo
  result <- runDB $ selectFirst [TickerCreatedAt >=. thr] [Desc TickerCreatedAt]
  case result of
    Nothing -> return Nothing
    Just (Entity _ ticker) ->
      return $ Just $ Tick (tickerUsdbtc ticker)
recentTick :: Handler (Maybe Tick)
recentTick = do
  thr <- fiveMinAgo
  result <- runDB $ selectFirst [TickerCreatedAt >=. thr] [Desc TickerCreatedAt]
  case result of
    Nothing -> return Nothing
    Just (Entity _ ticker) ->
      return $ Just $ Tick (tickerUsdbtc ticker)
recentTick = do
  thr <- fiveMinAgo
  result <- runDB $ selectFirst [TickerCreatedAt >=. thr] [Desc TickerCreatedAt]
  case result of
    Nothing -> return Nothing
    Just (Entity _ ticker) ->
      return $ Just $ Tick (tickerUsdbtc ticker)