@@ -374,6 +374,7 @@ handleBrowse moduleName = do
374374 findType envNames m@(_, mIdent) = (mIdent, M.lookup m envNames)
375375 showType :: (P.Ident, Maybe (P.Type, P.NameKind, P.NameVisibility)) -> String
376376 showType (mIdent, Just (mType, _, _)) = show mIdent ++ " :: " ++ P.prettyPrintType mType
377+ showType _ = undefined
377378
378379-- |
379380-- Takes a value and prints its kind