diff --git a/src/Handler/Utils/Csv.hs b/src/Handler/Utils/Csv.hs index 926879254..bc0617d29 100644 --- 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