From 479f109447169ed056793e8a95e3c16c5cb11940 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 21 Feb 2019 14:07:03 +0100
Subject: [PATCH] Trying to fix unusual and new haddock

---
 src/Database/Esqueleto/Utils.hs     | 10 +++++-----
 src/Utils/Lens/TH.hs                |  5 +++--
 templates/adminUser.hamlet          |  2 ++
 templates/data-protection-de.hamlet |  4 ++--
 4 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/src/Database/Esqueleto/Utils.hs b/src/Database/Esqueleto/Utils.hs
index 9e78f9fd0..41464cc00 100644
--- a/src/Database/Esqueleto/Utils.hs
+++ b/src/Database/Esqueleto/Utils.hs
@@ -5,11 +5,11 @@ import Data.Foldable as F
 import Database.Esqueleto as E
 
 
-{-|
-  Description : Convenience for using @Esqueleto@,
-                intended to be imported qualified
-                just like Esqueleto
--}
+--
+-- Description : Convenience for using @Esqueleto@,
+--               intended to be imported qualified
+--               just like Esqueleto
+
 
 -- ezero = E.val (0 :: Int64)
 
diff --git a/src/Utils/Lens/TH.hs b/src/Utils/Lens/TH.hs
index dffbf10c0..d65e58672 100644
--- a/src/Utils/Lens/TH.hs
+++ b/src/Utils/Lens/TH.hs
@@ -6,7 +6,8 @@ import Control.Lens.Internal.FieldTH
 import Language.Haskell.TH
 
 -- import Control.Lens.Misc
-{-  NOTE: The code for lensRules_  and makeLenses_ was stolen from package lens-misc-0.0.2.0,
+{-
+    NOTE: The code for lensRules_  and makeLenses_ was stolen from package lens-misc-0.0.2.0,
     which was currently unavailable in our stack snapshot.
     See https://github.com/louispan/lens-misc
 -}
@@ -59,5 +60,5 @@ makeClassyFor_ :: String -> String -> Name -> DecsQ
 makeClassyFor_ clsName funName = makeFieldOptics (classyRulesFor_ clNamer)
     where
         clNamer :: ClassyNamer
-        -- clNamer _ = Just (clsName, funName) -- for newer versions >= 4.17
+        -- clNamer _ = Just (clsName, funName) {- for newer versions >= 4.17 =}
         clNamer _ = Just (mkName clsName, mkName funName)
\ No newline at end of file
diff --git a/templates/adminUser.hamlet b/templates/adminUser.hamlet
index 30d7961f5..5909795a5 100644
--- a/templates/adminUser.hamlet
+++ b/templates/adminUser.hamlet
@@ -1,3 +1,5 @@
+<p>
+  <a href="mailto:#{userEmail}">#{userEmail}
 <form method=post action=@{AdminUserR uuid} enctype=#{formEnctype}>
   ^{formWidget}
   ^{submitButtonView}
diff --git a/templates/data-protection-de.hamlet b/templates/data-protection-de.hamlet
index 04e775a99..73fae7c7b 100644
--- a/templates/data-protection-de.hamlet
+++ b/templates/data-protection-de.hamlet
@@ -1,7 +1,7 @@
 <div .container>
   <section>
-    <h2>Stand
-    <h3>Version 0.91 vom 22.5.2018
+$#    <h2>Stand
+$#    <h3>Version 0.91 vom 22.5.2018
     <p>
       Die LMU unterliegt als Körperschaft des öffentlichen Rechts dem
       bayerischen Datenschutzgesetz, in einigen Bereichen dem Bundesdatenschutzgesetz,