Commits

Takayuki Muranushi committed d1cef98

astronomical length unit values added.

  • Participants
  • Parent commits 7ab8d9a

Comments (0)

Files changed (1)

File src/UnitTyped/SI/Derived/Length.hs

         type DimensionOf NauticalMile = LengthDimension
 
 -- |The Astronomical Unit (au).
-data AU
+data AstronomicalUnit
 	deriving Typeable
 
-instance Convertible AU where
+instance Convertible AstronomicalUnit where
 	factor _ = 149597870700
 	showunit _ = "au"
-        type DimensionOf AU = LengthDimension
+        type DimensionOf AstronomicalUnit = LengthDimension
 
 
 -- |The Light Year (ly).
 nautical_mile :: (Fractional f) => Value LengthDimension (U NauticalMile) f
 nautical_mile = one
 
+
+-- |One astronomical uint (au).
+astronomicalUnit :: (Fractional f) => Value LengthDimension (U AstronomicalUnit) f
+astronomicalUnit = one
+
+-- |One light year (ly).
+lightYear :: (Fractional f) => Value LengthDimension (U LightYear) f
+lightYear = one
+
+-- |One parsec (pc).
+parsec :: (Fractional f) => Value LengthDimension (U Parsec) f
+parsec = one
+
+
+
 --
 
 -- |One barn (b).