mkId' :: BS.ByteString -> Id
mkId' bs
  | BS.length bs /= 32 = error "mkId': expected 32 bytes"
  | otherwise = Id bs
mkId' :: BS.ByteString -> Id
mkId' bs
  | BS.length bs /= 32 = error "mkId': expected 32 bytes"
  | otherwise = Id bs
mkId' bs
  | BS.length bs /= 32 = error "mkId': expected 32 bytes"
  | otherwise = Id bs