fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: fix build

Browse Source
This commit is contained in:
Gregor Kleen 2019-09-30 16:19:35 +02:00
parent d7d1f27303
commit ac7f093647
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Utils/Csv.hs
View File

@ -134,9 +134,7 @@ respondDefaultOrderedCsv :: forall csv.
-> Handler TypedContent -> Handler TypedContent
respondDefaultOrderedCsv = respondCsv $ headerOrder (error "headerOrder" :: csv) respondDefaultOrderedCsv = respondCsv $ headerOrder (error "headerOrder" :: csv)
respondCsvDB :: ( ToNamedRecord csv respondCsvDB :: ToNamedRecord csv
, YesodPersistRunner UniWorX
)
=> Header => Header
-> ConduitT () csv DB () -> ConduitT () csv DB ()
-> Handler TypedContent -> Handler TypedContent