Turn down warning level a little

This commit is contained in:
Joe Nelson
2016-01-27 17:31:57 -08:00
parent 55da918240
commit 536acec820
2 changed files with 2 additions and 3 deletions
+1 -1
View File
@@ -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
View File
@@ -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:
- '.'