From 5da9f90532a87c6b00ff2d23a7dfe40c4adf03a9 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 28 Jul 2017 11:21:21 -0400
Subject: [PATCH] Define an Output instance for ByteString.

---
 src/Data/Output.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Data/Output.hs b/src/Data/Output.hs
index 19307c4d8..9ce22da9b 100644
--- a/src/Data/Output.hs
+++ b/src/Data/Output.hs
@@ -4,3 +4,6 @@ import Prologue
 
 class Monoid o => Output o where
   toOutput :: o -> ByteString
+
+instance Output ByteString where
+  toOutput s = s