From 7ef5bb81b81cd0533719297bbd71c69590d362e6 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 25 Dec 2014 13:24:42 +0100
Subject: Notmuch.drawSearchResult: add default (error) case

---
 Notmuch.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Notmuch.hs')

diff --git a/Notmuch.hs b/Notmuch.hs
index c2c0b34..309f411 100644
--- a/Notmuch.hs
+++ b/Notmuch.hs
@@ -251,6 +251,7 @@ drawSearchResult SearchResult{..} = do
             case T.splitOn "| " searchAuthors of
                 [a,b] -> (T.splitOn ", " a, T.splitOn ", " b)
                 [a] -> (T.splitOn ", " a, [])
+                x -> error $ "drawSearchResult: error " <> show x
 
         a' = map green matchedAuthors
         b' = map red otherAuthors
-- 
cgit v1.2.3