Floats, bugfixes, small reorganisations

1 files changed, 2 insertions, 0 deletions

diff --git a/pshow.hs b/pshow.hs
index 64fbab1..6fba9ff 100644
--- a/pshow.hs
+++ b/pshow.hs
@@ -13,6 +13,8 @@ pprint = putStrLn . pshow
 instance PShow String where {pshow = show}
 instance PShow Int where {pshow = show}
 instance PShow Integer where {pshow = show}
+instance PShow Float where {pshow = show}
+instance PShow Double where {pshow = show}
 
 instance (PShow a, PShow b) => PShow (a, b) where
     pshow (a, b) = "(" ++ pshow a ++ "," ++ pshow b ++ ")"