updateS :: (MonadState HashState m) => ByteString -> m ()
updateS bs = modify (flip update bs)
updateS :: (MonadState HashState m) => ByteString -> m ()
updateS bs = modify (flip update bs)
updateS bs = modify (flip update bs)