Trying to fix unusual and new haddock
This commit is contained in:
parent
5cd8827b99
commit
479f109447
@ -5,11 +5,11 @@ import Data.Foldable as F
|
|||||||
import Database.Esqueleto as E
|
import Database.Esqueleto as E
|
||||||
|
|
||||||
|
|
||||||
{-|
|
--
|
||||||
Description : Convenience for using @Esqueleto@,
|
-- Description : Convenience for using @Esqueleto@,
|
||||||
intended to be imported qualified
|
-- intended to be imported qualified
|
||||||
just like Esqueleto
|
-- just like Esqueleto
|
||||||
-}
|
|
||||||
|
|
||||||
-- ezero = E.val (0 :: Int64)
|
-- ezero = E.val (0 :: Int64)
|
||||||
|
|
||||||
|
|||||||
@ -6,7 +6,8 @@ import Control.Lens.Internal.FieldTH
|
|||||||
import Language.Haskell.TH
|
import Language.Haskell.TH
|
||||||
|
|
||||||
-- import Control.Lens.Misc
|
-- 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.
|
which was currently unavailable in our stack snapshot.
|
||||||
See https://github.com/louispan/lens-misc
|
See https://github.com/louispan/lens-misc
|
||||||
-}
|
-}
|
||||||
@ -59,5 +60,5 @@ makeClassyFor_ :: String -> String -> Name -> DecsQ
|
|||||||
makeClassyFor_ clsName funName = makeFieldOptics (classyRulesFor_ clNamer)
|
makeClassyFor_ clsName funName = makeFieldOptics (classyRulesFor_ clNamer)
|
||||||
where
|
where
|
||||||
clNamer :: ClassyNamer
|
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)
|
clNamer _ = Just (mkName clsName, mkName funName)
|
||||||
@ -1,3 +1,5 @@
|
|||||||
|
<p>
|
||||||
|
<a href="mailto:#{userEmail}">#{userEmail}
|
||||||
<form method=post action=@{AdminUserR uuid} enctype=#{formEnctype}>
|
<form method=post action=@{AdminUserR uuid} enctype=#{formEnctype}>
|
||||||
^{formWidget}
|
^{formWidget}
|
||||||
^{submitButtonView}
|
^{submitButtonView}
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
<div .container>
|
<div .container>
|
||||||
<section>
|
<section>
|
||||||
<h2>Stand
|
$# <h2>Stand
|
||||||
<h3>Version 0.91 vom 22.5.2018
|
$# <h3>Version 0.91 vom 22.5.2018
|
||||||
<p>
|
<p>
|
||||||
Die LMU unterliegt als Körperschaft des öffentlichen Rechts dem
|
Die LMU unterliegt als Körperschaft des öffentlichen Rechts dem
|
||||||
bayerischen Datenschutzgesetz, in einigen Bereichen dem Bundesdatenschutzgesetz,
|
bayerischen Datenschutzgesetz, in einigen Bereichen dem Bundesdatenschutzgesetz,
|
||||||
|
|||||||
Reference in New Issue
Block a user