
  0 | module Oracle.Types.Instances
  1 | 
  2 | import Oracle.Types.Error
  3 | import Oracle.Types.Row
  4 | import Oracle.Types.Value
  5 | 
  6 | implementation FromRow (List OracleValue) where
  7 |   fromRow values =
  8 |     Right values
  9 | 
 10 | implementation FromRow OracleValue where
 11 |   fromRow [value] =
 12 |     Right value
 13 |   fromRow _ =
 14 |     Left $
 15 |       MkOracleError (-1)
 16 |                     "Expected exactly one column"
 17 |                     "FromRow OracleValue"
 18 |                     False
 19 |