fetchSaveTick :: Handler Tick
fetchSaveTick = do
  t <- liftIO fetchTick
  case t of
    Nothing -> notFound
    Just tic -> do
      _ <- saveTick tic
      return tic
fetchSaveTick :: Handler Tick
fetchSaveTick = do
  t <- liftIO fetchTick
  case t of
    Nothing -> notFound
    Just tic -> do
      _ <- saveTick tic
      return tic
fetchSaveTick = do
  t <- liftIO fetchTick
  case t of
    Nothing -> notFound
    Just tic -> do
      _ <- saveTick tic
      return tic