saveTick :: Tick -> Handler TickerId
saveTick t = do
  current <- liftIO getCurrentTime
  runDB $ insert
    $ Ticker
    { tickerUsdbtc = unTick t
    , tickerCreatedAt = current
    }
saveTick :: Tick -> Handler TickerId
saveTick t = do
  current <- liftIO getCurrentTime
  runDB $ insert
    $ Ticker
    { tickerUsdbtc = unTick t
    , tickerCreatedAt = current
    }
saveTick t = do
  current <- liftIO getCurrentTime
  runDB $ insert
    $ Ticker
    { tickerUsdbtc = unTick t
    , tickerCreatedAt = current
    }