Fixbuild linter warnings

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