Merge branch 'master' of gitlab.uniworx.de:fradrive/fradrive

src/Handler/Admin/Avs.hs

@@ -534,7 +534,7 @@ mkLicenceTable apidStatus dbtIdent aLic apids = do
       dbtProj = dbtProjId -- Simple $ \(userAvs, user, qualUsr, quali) -> return (userAvs, user, qualUsr, quali)      
       dbtColonnade = mconcat
         [ dbSelect (applying _2) id $ return . view (resultUserAvs . _userAvsPersonId)
-                                -- $ \DBRow{dbrOutput=(_,_,apid,_)} -> return apid -- return . view resultAvsPID -- does not type due to traversal
+                                --  (\DBRow{dbrOutput=(_,_,apid,_)} -> return apid -- return . view resultAvsPID) -- does not type due to traversal
         , colUserNameLink AdminUserR
         , sortable (Just "avspersonno")   (i18nCell MsgAvsPersonNo)                  $ \(view      resultUserAvs       -> a) -> avsPersonNoLinkedCell a
         -- , colUserCompany 

src/Handler/LMS.hs

@@ -734,4 +734,3 @@ getLmsUserR uuid = do
   siteLayout heading $ do
     setTitle $ toHtml userDisplayName
     $(widgetFile "lms-user")    
-    -- $(i18nWidgetFile "lms-user")

src/Handler/Utils/Invitations.hs

@@ -8,8 +8,6 @@
 
 module Handler.Utils.Invitations
   ( -- * Procedure    
-    --
-    -- $procedure
     IsInvitableJunction(..)
   , Invitation'
   , _invitationDBData, _invitationTokenData

src/Utils/DateTime.hs

@@ -58,7 +58,7 @@ import Control.Monad.Fail
 import Utils.Lang (selectLanguage')
 
 
--- $(timeLocaleMap _) :: [Lang] -> TimeLocale
+-- Usage like so: $(timeLocaleMap _) :: [Lang] -> TimeLocale
 timeLocaleMap :: [(Lang, String)] -- ^ Languages and matching locales, first is taken as default
               -> ExpQ
 timeLocaleMap [] = fail "Need at least one (language, locale)-pair"

src/Utils/TH.hs

@@ -35,7 +35,7 @@ import Utils.PathPiece
 
 -- Alternatively uses lenses: "^. _3" projects the 3rd component of an n-tuple for any n >=3, requires import Control.Lens
 projNI :: Int -> Int -> ExpQ -- generic projection gives I-th element of N-tuple, i.e. snd3 = $(projNI 3 2)  --ghci -fth
--- $(projN n m) :: (t1,..,tn) -> tm (for m<=n)
+-- Usage like so: $(projN n m) :: (t1,..,tn) -> tm (for m<=n)
 projNI n i = do
   x <- newName "x"
   let rhs = varE x