module Drasil.SWHSNoPCM.MetaConcepts (progName) where import Language.Drasil 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 $ Sentence -> CapitalizationRule Replace (Sentence -> CapitalizationRule) -> Sentence -> CapitalizationRule forall a b. (a -> b) -> a -> b $ String -> Sentence S String "Solar Water Heating System with no Phase Change Material") String "SWHSNoPCM" [IdeaDict materialEng]