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