Commitf7362f5

committed

fix for module suffix

1 parenteb75ac8 commitf7362f5Copy full SHA for f7362f5

File tree

-5

lines changed

-5

lines changed

Lines changed: 9 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,15 @@ module UnusedOpens =`
`29`	`29`	`\|> List.choose(fun openDeclaration->`
`30`	`30`	`match openDeclarationwith`
`31`	`31`	`\| FSharpOpenDeclaration.Open((firstId::_)as longId, modules, appliedScope)->`
`32`		`- Some{ Idents= modules\|> List.choose(fun x-> x.TryFullName)\|> Set.ofList`
	`32`	`+ Some{ Idents=`
	`33`	`+ modules`
	`34`	`+\|> List.choose(fun x-> x.TryFullName\|> Option.map(fun fullName-> x, fullName))`
	`35`	`+\|> List.collect(fun(modul,fullName)->`
	`36`	`+[yield fullName`
	`37`	`+if modul.HasFSharpModuleSuffixthen`
	`38`	`+yield fullName.[..fullName.Length-7]// "Module" length plus zero indexign correction`
	`39`	`+])`
	`40`	`+\|> Set.ofList`
`33`	`41`	`Modules= modules`
`34`	`42`	`Range=`
`35`	`43`	`letlastId= List.last longId`

Lines changed: 0 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -168,7 +168,6 @@ module Top =`
`168`	`168`	`=>[]`
`169`	`169`
`170`	`170`	`[<Test>]`
`171`		`-[<Ignore"Auto open modules are not supported yet">]`
`172`	`171`	let``last of several equivalent open declarations is market as used,the rest of them are marked as unused``()=
`173`	`172`	`"""`
`174`	`173`	`module NormalModule =`
`@@ -197,7 +196,6 @@ type Class() = class end`
`197`	`196`	`=>[]`
`198`	`197`
`199`	`198`	`[<Test>]`
`200`		`-[<Ignore"Extensions are not supported yet">]`
`201`	`199`	let``open declaration is not marked as unused if an extension property is used``()=
`202`	`200`	`"""`
`203`	`201`	`module Module =`
`@@ -220,7 +218,6 @@ let _ = "a long string".Trim()`
`220`	`218`	`=>[5,(5,11)]`
`221`	`219`
`222`	`220`	`[<Test>]`
`223`		`-[<Ignore"Extensions are not supported yet">]`
`224`	`221`	let``open declaration is not marked as unused if an extension method is used``()=
`225`	`222`	`"""`
`226`	`223`	`type Class() = class end`
`@@ -550,7 +547,6 @@ open System`
`550`	`547`	`=>[]`
`551`	`548`
`552`	`549`	`[<Test>]`
`553`		`-[<Ignore"Extensions are not supported yet">]`
`554`	`550`	let``open declaration is not marked as unused if a related type extension is used``()=
`555`	`551`	`"""`
`556`	`552`	`module Module =`

Comments

(0)