jpl-horizons-api 0.1.0.0 → 0.2.0.0

raw patch · 2 files changed

+33/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• jpl-horizons-api.cabal +2/−2
• src/API/JPL/Horizons.hs +31/−1

@@ -1,5 +1,5 @@ name:                jpl-horizons-api-version:             0.1.0.0+version:             0.2.0.0 synopsis: Ephemerides for solar system objects from the JPL Horizons service description: The JPL Horizons on-line solar system data and ephemeris computation service provides access to key solar system data and flexible production of highly accurate ephemerides for solar system objects (1,180,796 asteroids, 3,789 comets, 211 planetary satellites {includes satellites of Earth and dwarf planet Pluto}, 8 planets, the Sun, L1, L2, select spacecraft, and system barycenters). Horizons is provided by the Solar System Dynamics Group of the Jet Propulsion Laboratory. homepage:            https://github.com/ocramz/jpl-horizons-api@@ -8,7 +8,7 @@ author:              Marco Zocca maintainer:          example@example.com copyright:           2022 Marco Zocca-category:            API Web Astronomy+category:            API, Astronomy build-type:          Simple extra-source-files:  README.md cabal-version:       >=1.10

@@ -99,7 +99,18 @@ -}  -- | Large bodies in the Solar System-data Body = Sun | Mercury | Venus | Earth | Moon | Mars | Jupiter | Saturn | Uranus | Neptune deriving (Eq, Show, Enum)+data Body = Sun+          | Mercury+          | Venus+          | Earth | Moon+          | Mars+          | Jupiter | Io | Europa | Ganymede | Callisto | Amalthea+          | Saturn | Mimas | Enceladus | Tethys | Dione | Rhea | Titan | Hyperion | Iapetus | Phoebe | Janus | Epimetheus+          | Uranus+          | Neptune | Triton+          | Pluto+          | Eris+          deriving (Eq, Show, Enum)  class IsBody c where   bodyToCommand :: c -> String@@ -112,9 +123,28 @@     Moon -> "301"     Mars -> "499"     Jupiter -> "599"+    Io -> "501"+    Europa -> "502"+    Ganymede -> "503"+    Callisto -> "504"+    Amalthea -> "505"     Saturn -> "699"+    Mimas -> "601"+    Enceladus -> "602"+    Tethys -> "603"+    Dione -> "604"+    Rhea -> "605"+    Titan -> "606"+    Hyperion -> "607"+    Iapetus -> "608"+    Phoebe -> "609"+    Janus -> "610"+    Epimetheus -> "611"     Uranus -> "799"     Neptune -> "899"+    Triton -> "801"+    Pluto -> "999"+    Eris -> "136199"  stepsizeMins :: Int -> String stepsizeMins m = show m <> "m"