summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Notmuch.hs1
1 files changed, 1 insertions, 0 deletions
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