From b24d12d869822925778918ff7dba7363a456baf7 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Tue, 16 Aug 2016 22:03:48 -0400
Subject: [PATCH] Add missing cases to toSeries and toText

---
 src/Renderer.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Renderer.hs b/src/Renderer.hs
index fbbfca8c3..0c537d657 100644
--- a/src/Renderer.hs
+++ b/src/Renderer.hs
@@ -24,10 +24,12 @@ concatOutputs l = T.intercalate "\n" (toText <$> l)
 toSeries :: Output -> Series
 toSeries (JSONOutput series) = series
 toSeries (SummaryOutput series) = series
+toSeries _ = mempty
 
 toText :: Output -> Text
 toText (SplitOutput text) = text
 toText (PatchOutput text) = text
+toText _ = mempty
 
 
 -- | The available types of diff rendering.