diff --git a/Atmosphere/Dimensional/TF.hs b/Atmosphere/Dimensional/TF.hs
--- a/Atmosphere/Dimensional/TF.hs
+++ b/Atmosphere/Dimensional/TF.hs
@@ -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)
diff --git a/atmos-dimensional-tf.cabal b/atmos-dimensional-tf.cabal
--- a/atmos-dimensional-tf.cabal
+++ b/atmos-dimensional-tf.cabal
@@ -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