@@ -111,17 +111,17 @@ postgresDataTypeDeserializers
111
111
postgresDataTypeDeserializers =
112
112
Db. beamDeserializer $ \ _ v ->
113
113
case v of
114
- " bytea" -> pure pgByteaType
115
- " smallserial" -> pure pgSmallSerialType
116
- " serial" -> pure pgSerialType
117
- " bigserial" -> pure pgBigSerialType
118
- " tsquery" -> pure pgTsQueryType
119
- " tsvector" -> pure pgTsVectorType
120
- " text" -> pure pgTextType
121
- " json" -> pure pgJsonType
122
- " jsonb" -> pure pgJsonbType
123
- " uuid" -> pure pgUuidType
124
- " money" -> pure pgMoneyType
114
+ " bytea" -> pure pgByteaType
115
+ " smallserial" -> pure pgSmallSerialType
116
+ " serial" -> pure pgSerialType
117
+ " bigserial" -> pure pgBigSerialType
118
+ " tsquery" -> pure pgTsQueryType
119
+ " tsvector" -> pure pgTsVectorType
120
+ " text" -> pure pgTextType
121
+ " json" -> pure pgJsonType
122
+ " jsonb" -> pure pgJsonbType
123
+ " uuid" -> pure pgUuidType
124
+ " money" -> pure pgMoneyType
125
125
_ -> fail " Postgres data type"
126
126
127
127
-- | Converts postgres 'DatabasePredicate's to 'DatabasePredicate's in the
@@ -205,6 +205,7 @@ pgTypeToHs (PgDataTypeSyntax tyDescr _ _) =
205
205
(HsType (tyConNamed " TsQuery" )
206
206
(importSome " Database.Beam.Postgres" [importTyNamed " TsQuery" ]))
207
207
(pgDataTypeSerialized pgTsQueryType)
208
+
208
209
_ -> Just (hsErrorType (" PG type " ++ show tyDescr))
209
210
210
211
-- | Turn a series of 'Db.MigrationSteps' into a line-by-line array of
0 commit comments