savelb :: Hash -> Handler LastBlockId
savelb h = do
  current <- liftIO getCurrentTime
  runDB $ insert
    $ LastBlock
    { lastBlockHash = unHash h
    , lastBlockObtainedAt = current
    }
savelb :: Hash -> Handler LastBlockId
savelb h = do
  current <- liftIO getCurrentTime
  runDB $ insert
    $ LastBlock
    { lastBlockHash = unHash h
    , lastBlockObtainedAt = current
    }
savelb h = do
  current <- liftIO getCurrentTime
  runDB $ insert
    $ LastBlock
    { lastBlockHash = unHash h
    , lastBlockObtainedAt = current
    }