summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-12-25 13:24:42 +0100
committertv <tv@shackspace.de>2014-12-25 13:24:42 +0100
commit7ef5bb81b81cd0533719297bbd71c69590d362e6 (patch)
treec2d9db2e015e3a834fdbcd3dab072df672c7d8a2
parentc59800da7b5d35e1a0c30f65802d02df68f5801a (diff)
Notmuch.drawSearchResult: add default (error) case
-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