chore(haddock): fix problematic comments

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

@@ -733,5 +733,4 @@ getLmsUserR uuid = do
   let heading = [whamlet|_{MsgMenuLmsUser} ^{userWidget user}|]  
   siteLayout heading $ do
     setTitle $ toHtml userDisplayName
-    $(widgetFile "lms-user")
-    -- $(i18nWidgetFile "lms-user")
+    $(widgetFile "lms-user")    

src/Handler/Utils/Invitations.hs

@@ -7,9 +7,7 @@
 {-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
 
 module Handler.Utils.Invitations
-  ( -- * Procedure
-    --
-    -- $procedure
+  ( -- * Procedure    
     IsInvitableJunction(..)
   , Invitation'
   , _invitationDBData, _invitationTokenData
@@ -435,7 +433,7 @@ instance InvitationR b => InvitationR (a -> b) where
   invitationR cfg _ = invitationR cfg
 
 
--- $procedure
+--   $procedure
 --
 -- `Invitation`s encode a pending entry of some junction table between some
 -- record and `User` e.g.

src/Utils.hs

@@ -628,8 +628,8 @@ trd3 :: (a,b,c) -> c
 trd3 (_,_,z) = z
 
 -- Further projections are available via TemplateHaskell, defined in Utils.Common:
--- $(projN n m) :: (t1,..,tn) -> tm (for m<=n)
--- snd3 = $(projNI 3 2)
+--    $(projN n m) :: (t1,..,tn) -> tm (for m<=n)
+--    snd3 = $(projNI 3 2)
 
 mTuple :: Applicative f => f a -> f b -> f (a, b)
 mTuple = liftA2 (,)

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