diff --git a/casr-logbook.cabal b/casr-logbook.cabal
--- a/casr-logbook.cabal
+++ b/casr-logbook.cabal
@@ -1,5 +1,5 @@
 name:               casr-logbook
-version:            0.5.2
+version:            0.5.3
 license:            OtherLicense
 license-file:       LICENSE
 author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,7 @@
+0.5.3
+
+* Fix show on digits.
+
 0.5.2
 
 * `Semigroup` instance for later GHC versions(2).
diff --git a/src/Data/Aviation/Casr/Logbook/Html/Html.hs b/src/Data/Aviation/Casr/Logbook/Html/Html.hs
--- a/src/Data/Aviation/Casr/Logbook/Html/Html.hs
+++ b/src/Data/Aviation/Casr/Logbook/Html/Html.hs
@@ -47,7 +47,7 @@
 
 import Control.Applicative((*>))
 import Control.Category((.), id)
-import Control.Lens((^.))
+import Control.Lens((^.), ( # ))
 import Control.Monad(when, (=<<), (>>=))
 import Data.Aviation.Casr.Logbook.Types(
     arn
@@ -94,7 +94,7 @@
   )
 import Data.Bool(not)
 import Data.Char(toUpper)
-import Data.Digit(DecDigit)
+import Data.Digit(DecDigit, charDecimal)
 import Data.Eq((==))
 import Data.Foldable(fold, sequence_, mapM_, null)
 import Data.Function(($))
@@ -151,7 +151,7 @@
   TimeAmount
   -> String
 strTimeAmount (TimeAmount h x) =
-  show h <> "." <> show x
+  show h <> "." <> [charDecimal # x]
 
 strEngine ::
   Engine
@@ -228,7 +228,7 @@
     do  li_ [id_ "aviatorarn"] $ 
           do  span_ [class_ "key"] "ARN: "
               span_ [class_ "value"] $
-                fromString (a >>= show)
+                fromString (a >>= (\d -> [charDecimal # d]))
 
 htmlAviatorDob ::
   Maybe Day
@@ -269,7 +269,7 @@
       " "
       fromString s
       when (not . null $ a) $ " "
-      fromString (a >>= show)
+      fromString (a >>= (\d -> [charDecimal # d]))
       when (not . null $ r) $ " "
       htmlRatingsShort r
 
@@ -651,7 +651,7 @@
                 , " "
                 , a ^. surname
                 , " ("
-                , show =<< (a ^. arn)
+                , (\d -> [charDecimal # d]) =<< (a ^. arn)
                 , ")"
                 ])