module Drasil.SWHSNoPCM.MetaConcepts (progName) where

import Language.Drasil
import qualified Language.Drasil.NounPhrase.Combinators as NP
import Drasil.Metadata (materialEng)

progName :: CI
progName :: CI
progName = String -> NP -> String -> [IdeaDict] -> CI
commonIdeaWithDict String
"swhsNoPCM"
  (String -> String -> CapitalizationRule -> NP
nounPhrase' String
"solar water heating system with no phase change material"
  String
"solar water heating systems with no phase change material" (CapitalizationRule -> NP) -> CapitalizationRule -> NP
forall a b. (a -> b) -> a -> b
$ NPStruct -> CapitalizationRule
Replace (NPStruct -> CapitalizationRule) -> NPStruct -> CapitalizationRule
forall a b. (a -> b) -> a -> b
$
  String -> NPStruct
NP.S String
"Solar Water Heating System with no Phase Change Material") String
"SWHSNoPCM" [IdeaDict
materialEng]