diff --git a/src/Handler/Term.hs b/src/Handler/Term.hs
index 0f9da91a8..e735ea1ae 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..ce0d70bc0 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 _     -> -- do
       [whamlet|
         $newline never
         <div .modal__trigger ##{triggerId}>