chore: fix build

2019-09-30 16:19:35 +02:00 · 2019-09-30 16:19:35 +02:00 · ac7f093647
commit ac7f093647
parent d7d1f27303
1 changed files with 1 additions and 3 deletions
--- a/src/Handler/Utils/Csv.hs
+++ b/src/Handler/Utils/Csv.hs
@ -134,9 +134,7 @@ respondDefaultOrderedCsv :: forall csv.
                         -> Handler TypedContent
 respondDefaultOrderedCsv = respondCsv $ headerOrder (error "headerOrder" :: csv)

-respondCsvDB :: ( ToNamedRecord csv
-                , YesodPersistRunner UniWorX
-                )
+respondCsvDB :: ToNamedRecord csv
             => Header
             -> ConduitT () csv DB ()
             -> Handler TypedContent