getSaveLastBlock :: Handler Hash
getSaveLastBlock = do
  l <- liftIO lastB
  case l of
    Nothing -> notFound
    Just lb -> do
      _ <- savelb lb
      return lb
getSaveLastBlock :: Handler Hash
getSaveLastBlock = do
  l <- liftIO lastB
  case l of
    Nothing -> notFound
    Just lb -> do
      _ <- savelb lb
      return lb
getSaveLastBlock = do
  l <- liftIO lastB
  case l of
    Nothing -> notFound
    Just lb -> do
      _ <- savelb lb
      return lb