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

Fix build linter

Browse Source
This commit is contained in:
SJost 2019-02-16 14:35:14 +01:00
parent 7ad95e7328
commit 1cc9ca119f
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Profile.hs
View File

@ -37,7 +37,7 @@ makeSettingForm template = identForm FIDsettings $ \html -> do
settingsFormT5T2 :: (Int,Theme,DateTimeFormat,DateTimeFormat,DateTimeFormat) -> (Bool,NotificationSettings) -> SettingsForm settingsFormT5T2 :: (Int,Theme,DateTimeFormat,DateTimeFormat,DateTimeFormat) -> (Bool,NotificationSettings) -> SettingsForm
settingsFormT5T2 = $(uncurryN 2) . $(uncurryN 5) SettingsForm settingsFormT5T2 = $(uncurryN 2) . $(uncurryN 5) SettingsForm
themeList = [Option (display t) t (toPathPiece t) | t <- universeF] themeList = [Option (display t) t (toPathPiece t) | t <- universeF]
cosmeticsForm = do (,,,,) cosmeticsForm = (,,,,)
<$> areq (natFieldI $ MsgNatField "Favoriten") -- TODO: natFieldI not working here <$> areq (natFieldI $ MsgNatField "Favoriten") -- TODO: natFieldI not working here
(fslpI MsgFavoriten "Anzahl Favoriten") (stgMaxFavourties <$> template) (fslpI MsgFavoriten "Anzahl Favoriten") (stgMaxFavourties <$> template)
<*> areq (selectField . return $ mkOptionList themeList) <*> areq (selectField . return $ mkOptionList themeList)

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 _ ->
[whamlet| [whamlet|
$newline never $newline never
<div .modal__trigger ##{triggerId}> <div .modal__trigger ##{triggerId}>