fetchSaveBlock :: Hash -> Handler Block
fetchSaveBlock h = do
  b <- liftIO $ fetchBlock h
  case b of
    Nothing -> notFound
    Just bl -> do
      _ <- saveBlock bl
      return bl
fetchSaveBlock :: Hash -> Handler Block
fetchSaveBlock h = do
  b <- liftIO $ fetchBlock h
  case b of
    Nothing -> notFound
    Just bl -> do
      _ <- saveBlock bl
      return bl
fetchSaveBlock h = do
  b <- liftIO $ fetchBlock h
  case b of
    Nothing -> notFound
    Just bl -> do
      _ <- saveBlock bl
      return bl