From 94300211adcaec253dc143048aab6d1e1af0e8c4 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Tue, 29 Nov 2022 18:20:26 +0100
Subject: [PATCH] minor

---
 src/Handler/Admin.hs   | 17 +++++++++++++++++
 src/Handler/Profile.hs |  1 -
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs
index e627fbec3..6e430b1b5 100644
--- a/src/Handler/Admin.hs
+++ b/src/Handler/Admin.hs
@@ -8,6 +8,9 @@ module Handler.Admin
 
 import Import
 
+-- import qualified Database.Esqueleto.Experimental as E
+-- import qualified Database.Esqueleto.Utils as E
+
 import Handler.Admin.Test as Handler.Admin
 import Handler.Admin.ErrorMessage as Handler.Admin
 import Handler.Admin.Tokens as Handler.Admin
@@ -15,8 +18,22 @@ import Handler.Admin.Crontab as Handler.Admin
 import Handler.Admin.Avs as Handler.Admin
 import Handler.Admin.Ldap as Handler.Admin
 
+
 getAdminR :: Handler Html
 getAdminR =
    siteLayoutMsg MsgAdminHeading $ do
       setTitleI MsgAdminHeading
       i18n MsgAdminPageEmpty
+
+{-
+mkBadAddressTable = do
+  let dbtSQLQuery user -> do 
+        E.where_ $ E.isNothing (user E.^. UserPostAddress)
+          E.&&. E.not ((user E.^. UserEmail) `E.like` E.val "%@%.%") 
+        pure user
+      dbtRowKey = (E.^. UserId)
+      dbtProj = dbtProjFilteredPostId -- TODO: still don't understand the choices here
+      dbtColonnade = 
+-}
+
+  
\ No newline at end of file
diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs
index 7c8660ee2..8e30ae3e4 100644
--- a/src/Handler/Profile.hs
+++ b/src/Handler/Profile.hs
@@ -1002,7 +1002,6 @@ mkCorrectionsTable =
               in  dbTableWidget' validator DBTable{..}
 
 
-
 -- | Table listing all qualifications that the given user is enrolled in
 mkQualificationsTable :: UserId -> DB Widget
 mkQualificationsTable =