-- | Units related to the field of solid mechanics.
module Data.Drasil.Units.SolidMechanics where

import Data.Drasil.SI_Units (metre, newton, pascal) 
import Language.Drasil (UnitDefn, newUnit, (/:))

stiffnessU, stiffness3D :: UnitDefn
stiffnessU :: UnitDefn
stiffnessU  = String -> UnitEquation -> UnitDefn
newUnit String
"stiffness"    (UnitEquation -> UnitDefn) -> UnitEquation -> UnitDefn
forall a b. (a -> b) -> a -> b
$ UnitDefn
newton UnitDefn -> UnitDefn -> UnitEquation
/: UnitDefn
metre
stiffness3D :: UnitDefn
stiffness3D = String -> UnitEquation -> UnitDefn
newUnit String
"3D stiffness" (UnitEquation -> UnitDefn) -> UnitEquation -> UnitDefn
forall a b. (a -> b) -> a -> b
$ UnitDefn
pascal UnitDefn -> UnitDefn -> UnitEquation
/: UnitDefn
metre