fix(exam participant download): fix icon not being shown
icon should have worked, but did not. does now
This commit is contained in:
parent
99ffd7b6c3
commit
a075b1648e
@ -283,7 +283,7 @@ instance Button UniWorX ButtonCsvMode where
|
||||
btnLabel BtnCsvExport
|
||||
= [whamlet|
|
||||
$newline never
|
||||
#{fontAwesomeIcon "file-csv"}
|
||||
#{iconCSV}
|
||||
\ _{BtnCsvExport}
|
||||
|]
|
||||
btnLabel BtnCsvImport
|
||||
@ -781,7 +781,7 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
|
||||
, formAnchor = Nothing :: Maybe Text
|
||||
}
|
||||
|
||||
|
||||
|
||||
rows' <- E.select . E.from $ \t -> do
|
||||
res <- dbtSQLQuery t
|
||||
E.orderBy (map (sqlSortDirection t) psSorting')
|
||||
@ -880,7 +880,7 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
|
||||
}
|
||||
|
||||
csvWdgt = $(widgetFile "table/csv-transcode")
|
||||
|
||||
|
||||
uiLayout table = dbsFilterLayout filterWdgt filterEnc (SomeRoute $ rawAction :#: wIdent "table-wrapper") $(widgetFile "table/layout")
|
||||
|
||||
dbInvalidateResult' = foldr (<=<) return . catMaybes $
|
||||
|
||||
@ -166,6 +166,10 @@ fileDownload = fontAwesomeIcon "file-download"
|
||||
zipDownload :: Markup
|
||||
zipDownload = fontAwesomeIcon "file-archive"
|
||||
|
||||
iconCSV :: Markup
|
||||
iconCSV = fontAwesomeIcon "file-csv"
|
||||
|
||||
|
||||
-- Conditional icons
|
||||
|
||||
isVisible :: Bool -> Markup
|
||||
|
||||
Loading…
Reference in New Issue
Block a user