FileConvention: fix the function

A .fs/fsx file might not have a namespace sometimes.
tehraninasab · Aug 29, 2023 · e6fc879 · e6fc879
1 parent 19b442d
commit e6fc879
Showing 1 changed file with 19 additions and 10 deletions.
diff --git a/src/FileConventions/Library.fs b/src/FileConventions/Library.fs
@@ -428,19 +428,28 @@ let DoesNamespaceInclude (fileInfo: FileInfo) (word: string) =
 
     if fileText.Any() then
         let rightNamespace =
-            fileText |> Seq.find(fun x -> x.Contains "namespace")
+            fileText |> Seq.tryFind(fun x -> x.Contains "namespace")
 
-        let words =
-            rightNamespace.Split(' ', StringSplitOptions.RemoveEmptyEntries)
+        match rightNamespace with
+        | Some fileNamespace ->
+            let words =
+                fileNamespace.Split(' ', StringSplitOptions.RemoveEmptyEntries)
 
-        let namespaceCorrentPos = 1
-        let namespaceWordsCount = 2
+            let namespaceCorrentPos = 1
+            let namespaceWordsCount = 2
 
-        if words.Length < namespaceWordsCount then
-            false
-        else
-            let namespaceName = words[namespaceCorrentPos]
-            namespaceName.Equals(word) || namespaceName.Equals($"{word};")
+            if words.Length < namespaceWordsCount then
+                false
+            else
+                let namespaceName = words[namespaceCorrentPos]
+                namespaceName.Equals(word) || namespaceName.Equals($"{word};")
+        | None ->
+            // It is possible that there is a fsharp file without namespace
+            if fileInfo.FullName.EndsWith ".fs"
+               || fileInfo.FullName.EndsWith ".fsx" then
+                true
+            else
+                false
     else
         false