minor

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 = 
+-}
+
+  

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 =