From 5b6bc27cbe78361b5e847373caef14613982629b Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Fri, 28 Oct 2016 19:04:58 +0100
Subject: [PATCH] constrainted bytestring print functions

---
 src/Show.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/Show.hs b/src/Show.hs
index a4beda42f..94dc2cb18 100644
--- a/src/Show.hs
+++ b/src/Show.hs
@@ -9,6 +9,8 @@ module Show (
   Print(..),
   putText,
   putLText,
+  putByteString,
+  putLByteString,
 ) where
 
 import qualified Base
@@ -57,3 +59,11 @@ putText = putStrLn
 putLText :: MonadIO m => TL.Text -> m ()
 putLText = putStrLn
 {-# SPECIALIZE putLText :: TL.Text -> Base.IO () #-}
+
+putByteString :: MonadIO m => BS.ByteString -> m ()
+putByteString = putStrLn
+{-# SPECIALIZE putByteString :: BS.ByteString -> Base.IO () #-}
+
+putLByteString :: MonadIO m => BL.ByteString -> m ()
+putLByteString = putStrLn
+{-# SPECIALIZE putLByteString :: BL.ByteString -> Base.IO () #-}