atmos-dimensional-tf 0.1.1 → 0.1.2

raw patch · 2 files changed

+19/−27 lines, 2 filesdep ~atmosdep ~dimensional-tfPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: atmos, dimensional-tf

API changes (from Hackage documentation)

Files

• Atmosphere/Dimensional/TF.hs +16/−24
• atmos-dimensional-tf.cabal +3/−3

@@ -1,13 +1,13 @@ {-# OPTIONS_GHC -Wall #-} -module Atmosphere.Dimensional.TF( atmosphere-                                , atmosphere'-                                , Atmos(..)-                                ) where+module Atmosphere.Dimensional.TF+       ( Atmos(..)+       , atmosphere+       ) where -import Atmosphere hiding (Atmos(..))+import qualified Atmosphere as A -import qualified Prelude+import qualified Prelude () import Numeric.Units.Dimensional.TF.Prelude  data Atmos a = Atmos { atmosTemperature :: ThermodynamicTemperature a@@ -18,22 +18,14 @@                      , atmosKinematicViscosity :: KinematicViscosity a                      } -atmosphere :: (Floating a, Ord a) =>-              Length a ->-              (ThermodynamicTemperature a, Pressure a, Density a, Velocity a,-               DynamicViscosity a, KinematicViscosity a)-atmosphere alt = ( temp *~ kelvin-                 , pressure *~ pascal-                 , density *~ (kilo gram / meter ^ pos3)-                 , asound *~ (meter / second)-                 , viscosity *~ (newton * second / meter ^ pos2)-                 , kinematicViscosity *~ (meter ^ pos2 / second)-                 )-  where-    (temp, pressure, density, asound, viscosity, kinematicViscosity) = siAtmosphere (alt /~ meter)---atmosphere' :: (Floating a, Ord a) => Length a -> Atmos a-atmosphere' alt = Atmos temp pressure density asound visc kVisc+atmosphere :: (Floating a, Ord a) => Length a -> Atmos a+atmosphere alt = Atmos+                 { atmosTemperature        = temp *~ kelvin+                 , atmosPressure           = pressure *~ pascal+                 , atmosDensity            = density *~ (kilo gram / meter ^ pos3)+                 , atmosSpeedOfSound       = asound *~ (meter / second)+                 , atmosViscosity          = viscosity *~ (newton * second / meter ^ pos2)+                 , atmosKinematicViscosity = kinematicViscosity *~ (meter ^ pos2 / second)+                 }   where-    (temp, pressure, density, asound, visc, kVisc) = atmosphere alt+    A.Atmos temp pressure density asound viscosity kinematicViscosity = A.siAtmosphere (alt /~ meter)

@@ -1,5 +1,5 @@ name:                atmos-dimensional-tf-version:             0.1.1+version:             0.1.2 synopsis:            dimensional-tf wrapper on atmos package description: { 1976 US Standard Atmosphere with dimensions from dimensional-tf package.@@ -21,8 +21,8 @@    exposed-modules: Atmosphere.Dimensional.TF   -- other-modules:           build-depends:   base >= 4 && < 5,-                    atmos >= 0.1 && < 0.2,-                    dimensional-tf >= 0.1.1 && < 0.2+                    atmos >= 0.1,+                    dimensional-tf >= 0.1.1  source-repository head   type:     git