module Drasil.Projectile.Goals (goals) where

import Language.Drasil

import Data.Drasil.Concepts.Documentation (goalStmtDom)

import Drasil.Projectile.Concepts (projectile, target)

goals :: [ConceptInstance]
goals :: [ConceptInstance]
goals = [ConceptInstance
targetHit]

targetHit :: ConceptInstance
targetHit :: ConceptInstance
targetHit = String -> Sentence -> String -> ConceptChunk -> ConceptInstance
forall c.
Concept c =>
String -> Sentence -> String -> c -> ConceptInstance
cic "targetHit" 
  (String -> Sentence
S "Determine if the" Sentence -> Sentence -> Sentence
+:+ ConceptChunk -> Sentence
forall n. (HasUID n, NamedIdea n) => n -> Sentence
phrase ConceptChunk
projectile Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S "hits the" Sentence -> Sentence -> Sentence
+:+. ConceptChunk -> Sentence
forall n. (HasUID n, NamedIdea n) => n -> Sentence
phrase ConceptChunk
target)
  "targetHit" ConceptChunk
goalStmtDom