module Drasil.Projectile.Changes (likelyChgs) where

import Language.Drasil

import Data.Drasil.Concepts.Documentation (likeChgDom)
import Drasil.Sentence.Combinators (chgsStart)

import Drasil.Projectile.Assumptions (neglectDrag)
import Drasil.Projectile.Concepts (projectile)

{--LIKELY CHANGES--}

likelyChgs :: [ConceptInstance]
likelyChgs :: [ConceptInstance]
likelyChgs = [ConceptInstance
considerAirDrag]

considerAirDrag :: ConceptInstance
considerAirDrag :: ConceptInstance
considerAirDrag = String -> Sentence -> String -> ConceptChunk -> ConceptInstance
forall c.
Concept c =>
String -> Sentence -> String -> c -> ConceptInstance
cic String
"considerAirDrag" Sentence
considerAirDragDesc String
"Consider-Air-Drag" ConceptChunk
likeChgDom

considerAirDragDesc :: Sentence
considerAirDragDesc :: Sentence
considerAirDragDesc = [Sentence] -> Sentence
foldlSent [ConceptInstance -> Sentence -> Sentence
forall x.
(HasShortName x, Referable x) =>
x -> Sentence -> Sentence
chgsStart ConceptInstance
neglectDrag (String -> Sentence
S String
"The software may be changed to"),
  String -> Sentence
S String
"consider the effect of air drag on the", ConceptChunk -> Sentence
forall n. NamedIdea n => n -> Sentence
phrase ConceptChunk
projectile, String -> Sentence
S String
"during its flight"]