From 1cc9ca119f01bc396410e039ddbe5c9eada205cc Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Sat, 16 Feb 2019 14:35:14 +0100
Subject: [PATCH] Fix build linter

---
 src/Handler/Profile.hs         | 2 +-
 src/Handler/Term.hs            | 4 ++--
 src/Handler/Utils/Templates.hs | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs
index 3bd2e0166..f1e449216 100644
--- a/src/Handler/Profile.hs
+++ b/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)
diff --git a/src/Handler/Term.hs b/src/Handler/Term.hs
index 0f9da91a8..b6ca6f622 100644
--- a/src/Handler/Term.hs
+++ b/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'
               }
diff --git a/src/Handler/Utils/Templates.hs b/src/Handler/Utils/Templates.hs
index 221c72b76..c316d9b77 100644
--- a/src/Handler/Utils/Templates.hs
+++ b/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}>