diff --git a/jpl-horizons-api.cabal b/jpl-horizons-api.cabal
--- a/jpl-horizons-api.cabal
+++ b/jpl-horizons-api.cabal
@@ -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
diff --git a/src/API/JPL/Horizons.hs b/src/API/JPL/Horizons.hs
--- a/src/API/JPL/Horizons.hs
+++ b/src/API/JPL/Horizons.hs
@@ -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"