getSaveBlock :: Hash -> Handler Block
getSaveBlock h = do
  b <- liftIO (fetchBlock h)
  case b of
    Nothing -> notFound
    Just bb -> do
      _ <- saveBlock bb
      return bb
getSaveBlock :: Hash -> Handler Block
getSaveBlock h = do
  b <- liftIO (fetchBlock h)
  case b of
    Nothing -> notFound
    Just bb -> do
      _ <- saveBlock bb
      return bb
getSaveBlock h = do
  b <- liftIO (fetchBlock h)
  case b of
    Nothing -> notFound
    Just bb -> do
      _ <- saveBlock bb
      return bb