diff --git a/core-data.cabal b/core-data.cabal
--- a/core-data.cabal
+++ b/core-data.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           core-data
-version:        0.3.9.0
+version:        0.3.9.1
 synopsis:       Convenience wrappers around common data structures and encodings
 description:    Wrappers around common data structures and encodings.
                 .
@@ -21,12 +21,12 @@
 bug-reports:    https://github.com/aesiniath/unbeliever/issues
 author:         Andrew Cowie <istathar@gmail.com>
 maintainer:     Andrew Cowie <istathar@gmail.com>
-copyright:      © 2018-2022 Athae Eredh Siniath and Others
+copyright:      © 2018-2023 Athae Eredh Siniath and Others
 license:        MIT
 license-file:   LICENSE
 build-type:     Simple
 tested-with:
-    GHC == 8.10.7, GHC == 9.2.4
+    GHC == 8.10.7, GHC == 9.2.5
 
 source-repository head
   type: git
diff --git a/lib/Core/Encoding/Json.hs b/lib/Core/Encoding/Json.hs
--- a/lib/Core/Encoding/Json.hs
+++ b/lib/Core/Encoding/Json.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE ImportQualifiedPost #-}
 {-# LANGUAGE InstanceSigs #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE StrictData #-}
@@ -100,11 +101,11 @@
     , breakRope
     )
 import Data.Aeson (FromJSON, Value (String))
-import qualified Data.Aeson as Aeson
+import Data.Aeson qualified as Aeson
 import Data.Char (intToDigit)
 import Data.Coerce
 import Data.Hashable (Hashable)
-import qualified Data.List as List
+import Data.List qualified as List
 import Data.Scientific
     ( FPFormat (..)
     , Scientific
@@ -112,8 +113,8 @@
     , isFloating
     )
 import Data.String (IsString (..))
-import qualified Data.Text as T
-import qualified Data.Vector as V
+import Data.Text qualified as T
+import Data.Vector qualified as V
 import GHC.Generics
 import Prettyprinter
     ( Doc
@@ -134,7 +135,6 @@
     , rbracket
     , sep
     , unAnnotate
-    , viaShow
     , vsep
     , (<+>)
     )
@@ -425,7 +425,12 @@
         annotate QuoteToken dquote
             <> annotate StringToken (escapeText x)
             <> annotate QuoteToken dquote
-    JsonNumber x -> annotate NumberToken (viaShow x)
+    JsonNumber x ->
+        let num =
+                if isFloating x
+                    then pretty (formatScientific Generic Nothing x)
+                    else pretty (formatScientific Fixed (Just 0) x)
+        in  annotate NumberToken num
     JsonBool x -> case x of
         True -> annotate BooleanToken "true"
         False -> annotate BooleanToken "false"