Merge pull request #10 from singpolyma/fixed

Instance for Data.Fixed.Fixed

Author: bos

Data/Text/Buildable.hs

@@ -22,6 +22,7 @@ import Data.Void (Void, absurd)
 
 import Data.Monoid (mempty)
 import Data.Int (Int8, Int16, Int32, Int64)
+import Data.Fixed (Fixed, HasResolution, showFixed)
 import Data.Ratio (Ratio, denominator, numerator)
 import Data.Text.Format.Functions ((<>))
 import Data.Text.Format.Int (decimal, hexadecimal)
@@ -93,6 +94,10 @@ instance Buildable Integer where
     build = decimal
     {-# INLINE build #-}
 
+instance (HasResolution a) => Buildable (Fixed a) where
+    build = build . showFixed False
+    {-# INLINE build #-}
+
 instance Buildable Word8 where
     build = decimal
     {-# INLINE build #-}