Cover all possible RemovalLikelihoods when rendering results

This commit is contained in:
Joshua Clayton 2016-05-09 08:07:05 -04:00
parent 3b627ee1c3
commit 6883fc8e01

View File

@ -44,6 +44,7 @@ likelihoodColor :: RemovalLikelihood -> Color
likelihoodColor High = Red
likelihoodColor Medium = Yellow
likelihoodColor Low = Green
likelihoodColor Unknown = Black
printMatches :: Int -> TermResults -> [TermMatch] -> IO ()
printMatches w r ms =