Notmuch.drawSearchResult: add default (error) case

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