Takayuki Muranushi avatar Takayuki Muranushi committed 7ab8d9a

astronomical length units added.

Comments (0)

Files changed (1)

src/UnitTyped/SI/Derived/Length.hs

 	showunit _ = "M"
         type DimensionOf NauticalMile = LengthDimension
 
+-- |The Astronomical Unit (au).
+data AU
+	deriving Typeable
+
+instance Convertible AU where
+	factor _ = 149597870700
+	showunit _ = "au"
+        type DimensionOf AU = LengthDimension
+
+
+-- |The Light Year (ly).
+data LightYear
+	deriving Typeable
+
+instance Convertible LightYear where
+	factor _ = 9460730472580800 
+	showunit _ = "ly"
+        type DimensionOf LightYear = LengthDimension
+
+
+-- |The Parsec (pc).
+data Parsec
+	deriving Typeable
+
+instance Convertible Parsec where
+	factor _ = 3.08568e16
+	showunit _ = "pc"
+        type DimensionOf Parsec = LengthDimension
+
+
+
 ----
 -- 2 dimensional
 ----
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.