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

Fixbuild linter warnings

Browse Source
This commit is contained in:
SJost 2019-02-11 10:55:04 +01:00
parent ccb6ed2cd8
commit 67d6fad1d4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Term.hs
View File

@ -148,13 +148,13 @@ getTermEditR = do
mbLastTerm <- runDB $ selectFirst [] [Desc TermName] mbLastTerm <- runDB $ selectFirst [] [Desc TermName]
let template = case mbLastTerm of let template = case mbLastTerm of
Nothing -> mempty Nothing -> mempty
(Just (Entity { entityVal=Term{..} })) -> let (Just Entity{ entityVal=Term{..} }) -> let
ntid = succ termName ntid = succ termName
seas = season ntid seas = season ntid
yr = year ntid yr = year ntid
yr' = if seas == Summer then yr else succ yr yr' = if seas == Summer then yr else succ yr
in mempty in mempty
{ tftName = Just $ ntid { tftName = Just ntid
, tftStart = Just $ defaultDay True seas & setYear yr , tftStart = Just $ defaultDay True seas & setYear yr
, tftEnd = Just $ defaultDay False seas & setYear yr' , tftEnd = Just $ defaultDay False seas & setYear yr'
} }

2
src/Handler/Utils/Templates.hs
View File

@ -18,7 +18,7 @@ modal modalTrigger modalContent = do
<a .modal__trigger href=#{route'} ##{triggerId}> <a .modal__trigger href=#{route'} ##{triggerId}>
<span .modal__trigger-label>^{modalTrigger} <span .modal__trigger-label>^{modalTrigger}
|] |]
Right _ -> do Right _ -> -- do
[whamlet| [whamlet|
$newline never $newline never
<div .modal__trigger ##{triggerId}> <div .modal__trigger ##{triggerId}>