module Drasil.SWHS.MetaConcepts where

import Language.Drasil
import Drasil.Metadata (materialEng)
-- import Drasil.SWHS.Concepts (phsChgMtrl)

progName :: CI
progName :: CI
progName = String -> NP -> String -> [IdeaDict] -> CI
commonIdeaWithDict String
"swhsName"   (String -> String -> NP
nounPhrase String
"solar water heating system"
  String
"solar water heating systems") String
"SWHS" [IdeaDict
materialEng]

-- HACK: should re-decompose this noun phrase back into components!
progName' :: CI
progName' :: CI
progName' = String -> NP -> String -> [UID] -> CI
commonIdea String
"swhsPCM" (String -> NP
nounPhraseSP String
"solar water heating systems incorporating PCM")
  String
"SWHS"
  []