hashBlock :: Hash -> Handler Block
hashBlock h = do
  found <- runDB $ selectFirst [BlockHash ==. unHash h] []
  case found of
    Just (Entity _ b) -> return b
    _ -> fetchSaveBlock h -- obtain from blockchain.info here
hashBlock :: Hash -> Handler Block
hashBlock h = do
  found <- runDB $ selectFirst [BlockHash ==. unHash h] []
  case found of
    Just (Entity _ b) -> return b
    _ -> fetchSaveBlock h -- obtain from blockchain.info here
hashBlock h = do
  found <- runDB $ selectFirst [BlockHash ==. unHash h] []
  case found of
    Just (Entity _ b) -> return b
    _ -> fetchSaveBlock h -- obtain from blockchain.info here