Improve comments on traceGCon' and rename to genTraceGraphLabCons.

Author: balacij

code/drasil-docLang/lib/Drasil/DocumentLanguage.hs

@@ -63,7 +63,7 @@ import qualified Drasil.Sections.Stakeholders as Stk (stakeholderIntro,
 import qualified Drasil.DocumentLanguage.TraceabilityMatrix as TM (
   generateTraceTableView, traceMHeader, layoutUIDs)
 import qualified Drasil.DocumentLanguage.TraceabilityGraph as TG (traceMGF)
-import Drasil.DocumentLanguage.TraceabilityGraph (traceyGraphGetRefs, traceGCon')
+import Drasil.DocumentLanguage.TraceabilityGraph (traceyGraphGetRefs, genTraceGraphLabCons)
 import Drasil.Sections.TraceabilityMandGs (traceMatStandard)
 import Drasil.Sections.ReferenceMaterial (emptySectSentPlu)
 
@@ -105,7 +105,9 @@ fillLC sd si@SI{ _sys = sn }
   | otherwise = si
   where
     chkdb = si ^. systemdb
-    createdLCs = traceGCon' $ programName sn -- Pre-generate a copy of all LabelledContents for insertion in the ChunkDB.
+    -- Pre-generate a copy of all required LabelledContents (i.e., traceability
+    -- graphs) for insertion in the ChunkDB.
+    createdLCs = genTraceGraphLabCons $ programName sn
     -- FIXME: This is a semi-hack. This is only strictly necessary for the
     -- traceability graphs. Those are all chunks that should exist but not be
     -- handled like this. They should be created and included in the

code/drasil-docLang/lib/Drasil/DocumentLanguage/TraceabilityGraph.hs

@@ -162,12 +162,14 @@ traceGLst = UlC $ ulcc $ Enumeration $ Bullet $ map (, Nothing) folderList'
 
 -- | The Traceability Graph contents.
 traceGCon :: String -> [Contents] -- FIXME: HACK: We're generating "LlC"s of the traceability graphs multiple times... See DocumentLanguage.hs' mkTraceabilitySec for the other spot.
-traceGCon ex = map LlC (traceGCon' ex)
+traceGCon ex = map LlC (genTraceGraphLabCons ex)
             ++ [mkParagraph $ S "For convenience, the following graphs can be\
                \ found at the links below:", traceGLst]
 
-traceGCon' :: String -> [LabelledContent]
-traceGCon' ex = zipWith (traceGraphLC ex) traceGFiles traceGUIDs
+-- | Generate the `LabelledContent` chunks, specialized to a specific example
+-- (and its path).
+genTraceGraphLabCons :: String -> [LabelledContent]
+genTraceGraphLabCons ex = zipWith (traceGraphLC ex) traceGFiles traceGUIDs
 
 -- | Generates traceability graphs as figures on an SRS document.
 traceGraphLC :: String -> FilePath -> UID -> LabelledContent