Turn down warning level a little
This commit is contained in:
@@ -85,7 +85,7 @@ app dbStructure conf reqBody req =
|
||||
then responseLBS status404 [] ""
|
||||
else responseLBS status200 [contentTypeH] (cs body)
|
||||
else do
|
||||
let frm = toInteger $ rangeOffset range
|
||||
let frm = rangeOffset range
|
||||
to = frm + toInteger queryTotal - 1
|
||||
contentRange = contentRangeH frm to (toInteger <$> tableTotal)
|
||||
status = rangeStatus frm to (toInteger <$> tableTotal)
|
||||
|
||||
+1
-2
@@ -3,9 +3,8 @@ extra-deps:
|
||||
- hasql-0.19.3.3
|
||||
- Ranged-sets-0.3.0
|
||||
- packdeps-0.4.2.1
|
||||
# Almost all warnings, plus minimal-imports for packunused
|
||||
ghc-options:
|
||||
postgrest: -ddump-minimal-imports -Werror -Wall -fwarn-incomplete-uni-patterns -fwarn-incomplete-record-updates -fwarn-monomorphism-restriction -fwarn-auto-orphans -fwarn-missing-local-sigs -fwarn-missing-exported-sigs -fwarn-missing-import-lists -fwarn-identities
|
||||
postgrest: -Werror -Wall -fwarn-monomorphism-restriction -fwarn-missing-exported-sigs -fwarn-identities
|
||||
|
||||
packages:
|
||||
- '.'
|
||||
|
||||
Reference in New Issue
Block a user