renderType :: FileModule -> TypeBindBase Info VName -> Maybe (DocM Html)
renderType fm tb
  | M.member name typeTable
  , visible Type name fm = Just $ H.div <$> typeBindHtml tb
    where (FileModule Env {envTypeTable = typeTable} _) = fm
          TypeBind { typeAlias = name } = tb
renderType :: FileModule -> TypeBindBase Info VName -> Maybe (DocM Html)
renderType fm tb
  | M.member name typeTable
  , visible Type name fm = Just $ H.div <$> typeBindHtml tb
    where (FileModule Env {envTypeTable = typeTable} _) = fm
          TypeBind { typeAlias = name } = tb
renderType fm tb
  | M.member name typeTable
  , visible Type name fm = Just $ H.div <$> typeBindHtml tb
    where (FileModule Env {envTypeTable = typeTable} _) = fm
          TypeBind { typeAlias = name } = tb