-- | Defines units to describe physical properties. module Data.Drasil.Units.PhysicalProperties where import Data.Drasil.SI_Units (kilogram, m_3) import Language.Drasil (UnitDefn, newUnit, (/:)) densityU :: UnitDefn densityU :: UnitDefn densityU = String -> UnitEquation -> UnitDefn newUnit String "density" (UnitEquation -> UnitDefn) -> UnitEquation -> UnitDefn forall a b. (a -> b) -> a -> b $ UnitDefn kilogram UnitDefn -> UnitDefn -> UnitEquation /: UnitDefn m_3