From ac7f0936471713f528d24f5b83eb5a0c888bc177 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 30 Sep 2019 16:19:35 +0200 Subject: [PATCH] chore: fix build --- src/Handler/Utils/Csv.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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