Skip to content
Browse files

Added Pretty instances for types from Data.{Int,Word}.

  • Loading branch information...
1 parent a00e7cd commit e57b1620aae9c17e43c74274649ae7988d252e23 @mvv mvv committed
Showing with 29 additions and 0 deletions.
  1. +29 −0 Text/PrettyPrint/Free/Internal.hs
View
29 Text/PrettyPrint/Free/Internal.hs
@@ -123,6 +123,8 @@ import Data.Traversable
import Data.Functor.Apply
import Data.Functor.Bind
import Data.Functor.Plus
+import Data.Int
+import Data.Word
import qualified Data.ByteString.UTF8 as Strict
import qualified Data.ByteString.Lazy.UTF8 as Lazy
import Data.List.NonEmpty (NonEmpty)
@@ -523,6 +525,33 @@ instance Pretty a => Pretty (NonEmpty a) where
instance Pretty Int where
pretty = text . show
+instance Pretty Int8 where
+ pretty = text . show
+
+instance Pretty Int16 where
+ pretty = text . show
+
+instance Pretty Int32 where
+ pretty = text . show
+
+instance Pretty Int64 where
+ pretty = text . show
+
+instance Pretty Word where
+ pretty = text . show
+
+instance Pretty Word8 where
+ pretty = text . show
+
+instance Pretty Word16 where
+ pretty = text . show
+
+instance Pretty Word32 where
+ pretty = text . show
+
+instance Pretty Word64 where
+ pretty = text . show
+
instance Pretty Integer where
pretty = text . show

0 comments on commit e57b162

Please sign in to comment.
Something went wrong with that request. Please try again.