Improve typing on table creation

[yaitskov]

I want to create a simple table and get a runtime error. BigQuery service is not bothered with explaining what actually is missing and Haskell type system pass incomplete query.

:set -XOverloadedStrings
:set -XGADTs
:set -XTypeFamilies
import Control.Lens ((&), (.~), (<&>), view, set)
import Network.Google
import Network.Google.BigQuery
bqe cmd = runResourceT (runGoogle e (send cmd))
bqe $ tablesInsert (table & (tabFriendlyName .~ (Just "tbl2")) & (tabId .~ (Just "tbl2")) & (tabSchema .~ (Just (tableSchema & tsFields .~ [tableFieldSchema & tfsName .~ (Just "name") & tfsType .~ (Just "STRING")])))) "ds2" prjId

*** Exception: ServiceError (ServiceError' {_serviceId = ServiceId "bigquery:v2", _serviceStatus = Status {statusCode = 400, statusMessage = "Bad Request"}, _serviceHeaders = [("Vary","Origin"),("Vary","X-Origin"),("Vary","Referer"),("Content-Type","application/json; charset=UTF-8"),("Content-Encoding","gzip"),("Date","Wed, 12 Aug 2020 17:55:49 GMT"),("Server","ESF"),("Cache-Control","private"),("X-XSS-Protection","0"),("X-Frame-Options","SAMEORIGIN"),("X-Content-Type-Options","nosniff"),("Alt-Svc","h3-29=":443"; ma=2592000,h3-27=":443"; ma=2592000,h3-T050=":443"; ma=2592000,h3-Q050=":443"; ma=2592000,h3-Q046=":443"; ma=2592000,h3-Q043=":443"; ma=2592000,quic=":443"; ma=2592000; v="46,43""),("Transfer-Encoding","chunked")], _serviceBody = Just "{\n "error": {\n "code": 400,\n "message": "Required parameter is missing",\n "errors": [\n {\n "message": "Required parameter is missing",\n "domain": "global",\n "reason": "required"\n }\n ],\n "status": "INVALID_ARGUMENT"\n }\n}\n"})

gogol version is 0.5