hide reactivate button, when there's nothing to reactivate.

Handler/Home.hs

@@ -31,6 +31,7 @@ getHomeR = do
   beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
   today <- liftIO $ utctDay <$> getCurrentTime
   users <- runDB $ selectList [UserTimestamp >=. addDays (-30) today] [Asc UserIdent]
+  ousers <- runDB $ selectList [UserTimestamp <. addDays (-30) today] [Asc UserIdent]
   defaultLayout $ do
     addScript $ StaticR js_barcode_js
     $(widgetFile "home")

templates/home.hamlet

@@ -20,9 +20,10 @@ $forall (Entity uId user) <- users
   <a href=@{NewUserR}>
     <p>_{MsgCreateUser}
 
-<article .article #func>
-  <a href=@{ReactivateR}>
-    <p>_{MsgReactivateOldUser}
+$if not (null ousers)
+  <article .article #func>
+    <a href=@{ReactivateR}>
+      <p>_{MsgReactivateOldUser}
 
 <form action=@{HomeBarcodeR} method=GET>
   <input type=hidden #barcodeInput name=barcode>