atmos-dimensional 0.1.1 → 0.1.2

raw patch · 2 files changed

+19/−27 lines, 2 filesdep ~atmosdep ~dimensionalPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: atmos, dimensional

API changes (from Hackage documentation)

Files

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

@@ -1,13 +1,13 @@ {-# OPTIONS_GHC -Wall #-} -module Atmosphere.Dimensional( atmosphere-                             , atmosphere'-                             , Atmos(..)-                             ) where+module Atmosphere.Dimensional+       ( Atmos(..)+       , atmosphere+       ) where -import Atmosphere hiding (Atmos(..))+import qualified Atmosphere as A -import qualified Prelude+import qualified Prelude () import Numeric.Units.Dimensional.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-version:             0.1.1+version:             0.1.2 synopsis:            dimensional wrapper on atmos package description: { 1976 US Standard Atmosphere with dimensions from dimensional package.@@ -19,8 +19,8 @@    exposed-modules: Atmosphere.Dimensional   -- other-modules:           build-depends:   base >= 4 && < 5,-                    atmos >= 0.1 && < 0.2,-                    dimensional >= 0.10.2 && < 0.11+                    atmos >= 0.1,+                    dimensional >= 0.10.2  source-repository head   type:     git