nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-22 18:22:05 +03:00
Code Issues Projects Releases Wiki Activity

Ditch OverloadedRecordDot for compatiblity with GHC <9.2

Browse Source
This commit is contained in:
Nikita Volkov 2024-04-22 09:58:30 +03:00
parent 1544e3d783
commit f99f7797a3
4 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hasql.cabal
View File

@ -53,7 +53,6 @@ common base
MultiWayIf MultiWayIf
NoImplicitPrelude NoImplicitPrelude
NoMonomorphismRestriction NoMonomorphismRestriction
OverloadedRecordDot
OverloadedStrings OverloadedStrings
ParallelListComp ParallelListComp
PatternGuards PatternGuards

4
testing-kit/Hasql/TestingKit/Statements/BrokenSyntax.hs
View File

@ -33,8 +33,8 @@ sql =
encoder :: Encoders.Params Params encoder :: Encoders.Params Params
encoder = encoder =
mconcat mconcat
[ (.start) >$< Encoders.param (Encoders.nonNullable Encoders.int8), [ start >$< Encoders.param (Encoders.nonNullable Encoders.int8),
(.end) >$< Encoders.param (Encoders.nonNullable Encoders.int8) end >$< Encoders.param (Encoders.nonNullable Encoders.int8)
] ]
decoder :: Decoders.Result Result decoder :: Decoders.Result Result

4
testing-kit/Hasql/TestingKit/Statements/GenerateSeries.hs
View File

@ -33,8 +33,8 @@ sql =
encoder :: Encoders.Params Params encoder :: Encoders.Params Params
encoder = encoder =
mconcat mconcat
[ (.start) >$< Encoders.param (Encoders.nonNullable Encoders.int8), [ start >$< Encoders.param (Encoders.nonNullable Encoders.int8),
(.end) >$< Encoders.param (Encoders.nonNullable Encoders.int8) end >$< Encoders.param (Encoders.nonNullable Encoders.int8)
] ]
decoder :: Decoders.Result Result decoder :: Decoders.Result Result

4
testing-kit/Hasql/TestingKit/Statements/WrongDecoder.hs
View File

@ -33,8 +33,8 @@ sql =
encoder :: Encoders.Params Params encoder :: Encoders.Params Params
encoder = encoder =
mconcat mconcat
[ (.start) >$< Encoders.param (Encoders.nonNullable Encoders.int8), [ start >$< Encoders.param (Encoders.nonNullable Encoders.int8),
(.end) >$< Encoders.param (Encoders.nonNullable Encoders.int8) end >$< Encoders.param (Encoders.nonNullable Encoders.int8)
] ]
decoder :: Decoders.Result Result decoder :: Decoders.Result Result