diff --git a/hledger-lib/Hledger/Data/Types.hs b/hledger-lib/Hledger/Data/Types.hs
index e5a51561c..0b5ff6d5f 100644
--- a/hledger-lib/Hledger/Data/Types.hs
+++ b/hledger-lib/Hledger/Data/Types.hs
@@ -259,14 +259,13 @@ data AmountStyle = AmountStyle {
 } deriving (Eq,Ord,Read,Generic)
 
 instance Show AmountStyle where
-  show AmountStyle{..} = concat
-    [ "AmountStylePP \""
+  show AmountStyle{..} = unwords
+    [ "AmountStylePP"
     , show ascommodityside
     , show ascommodityspaced
     , show asprecision
     , show asdecimalpoint
     , show asdigitgroups
-    , "..\""
     ]
 
 -- | The "display precision" for a hledger amount, by which we mean