Fix build linter

src/Handler/Profile.hs

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

src/Handler/Term.hs

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

src/Handler/Utils/Templates.hs

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