tick :: Handler Tick
tick = do
  recent <- recentTick
  case recent of
    Just tic -> return tic
    Nothing -> fetchSaveTick
tick :: Handler Tick
tick = do
  recent <- recentTick
  case recent of
    Just tic -> return tic
    Nothing -> fetchSaveTick
tick = do
  recent <- recentTick
  case recent of
    Just tic -> return tic
    Nothing -> fetchSaveTick