@@ -376,7 +376,7 @@ handleBrowse moduleName = do
376376 findType envNames m@(_, mIdent) = (mIdent, M.lookup m envNames)
377377 showType :: (P.Ident, Maybe (P.Type, P.NameKind, P.NameVisibility)) -> String
378378 showType (mIdent, Just (mType, _, _)) = show mIdent ++ " :: " ++ P.prettyPrintType mType
379− showType _ = undefined
379+ showType _ = error "The impossible happened in handleBrowse."
380380
381381-- |
382382-- Takes a value and prints its kind