<commit_before>module Drasil.Stakeholders 
  ( stakehldrGeneral) where

import Language.Drasil
import qualified Drasil.SRS as SRS
import Data.Drasil.Utils (foldlSent)
import Data.Drasil.Concepts.Documentation

stakehldrGeneral :: CINP -> Sentence -> Section
stakehldrGeneral kWord clientDetails = (SRS.stakeholder) [stakeholderIntro] subs
  where subs = [(tClientF kWord clientDetails), (tCustomerF kWord)]

-- general stakeholders introduction
stakeholderIntro :: Contents
stakeholderIntro = Paragraph $ foldlSent [S "This", phrase section_,
            S "describes the" +: titleize' stakeholder, S "the people who have an",
            phrase interest, S "in", (phrase $ the product_)]

tClientF :: CINP -> Sentence ->  Section
tClientF kWord details = SRS.theClient [clientIntro kWord details] []

clientIntro :: CINP -> Sentence -> Contents
clientIntro kWord  details = Paragraph $ foldlSent [(at_start $ the client), S "for",
  (short kWord), S "is a", phrase company, S "named" +:+. details,
  (at_start $ the client), S "has the final say on acceptance of the", 
  phrase product_]

tCustomerF :: CINP -> Section
tCustomerF kWord = SRS.theCustomer [customerIntro kWord] []

customerIntro :: CINP -> Contents
customerIntro kWord = Paragraph $ foldlSent [(at_start' $ the customer), 
  S "are the", phrase endUser, S "of", (short kWord)]<commit_msg>fixed import error<commit_after>module Drasil.Stakeholders 
  ( stakehldrGeneral) where

import Language.Drasil
import qualified Drasil.SRS as SRS
import Data.Drasil.SentenceStructures (foldlSent)
import Data.Drasil.Concepts.Documentation

stakehldrGeneral :: CINP -> Sentence -> Section
stakehldrGeneral kWord clientDetails = (SRS.stakeholder) [stakeholderIntro] subs
  where subs = [(tClientF kWord clientDetails), (tCustomerF kWord)]

-- general stakeholders introduction
stakeholderIntro :: Contents
stakeholderIntro = Paragraph $ foldlSent [S "This", phrase section_,
            S "describes the" +: titleize' stakeholder, S "the people who have an",
            phrase interest, S "in", (phrase $ the product_)]

tClientF :: CINP -> Sentence ->  Section
tClientF kWord details = SRS.theClient [clientIntro kWord details] []

clientIntro :: CINP -> Sentence -> Contents
clientIntro kWord  details = Paragraph $ foldlSent [(at_start $ the client), S "for",
  (short kWord), S "is a", phrase company, S "named" +:+. details,
  (at_start $ the client), S "has the final say on acceptance of the", 
  phrase product_]

tCustomerF :: CINP -> Section
tCustomerF kWord = SRS.theCustomer [customerIntro kWord] []

customerIntro :: CINP -> Contents
customerIntro kWord = Paragraph $ foldlSent [(at_start' $ the customer), 
  S "are the", phrase endUser, S "of", (short kWord)]
{'fraction_non_alphanumeric': 0.1063049853372434, 'fraction_numerical': 0.0, 'mean_word_length': 4.6036960985626285, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 19, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1347380', 'n_tokens_mistral': 892, 'n_tokens_neox': 863, 'n_words': 279}