Refactor

DataParser.Console/Core.fs

@@ -1,7 +1,5 @@
 module DataParser.Console.Core
 
-open System.Collections.Generic
-
 type FormatName = FormatName of string
 
 type Error =

DataParser.Console/FileRead.fs

@@ -28,7 +28,7 @@ let getDataFileFormat formatLines (filePath, fileName) =
         return { Name = dataFileName; FormatLines = formatLines; FilePath = filePath }
     }
 
-let getDataFiles folderPath =
+let readDataFiles folderPath =
     seq {
         for file in Directory.GetFiles(folderPath, "*.txt") do
             (file, Path.GetFileNameWithoutExtension file)

DataParser.Console/Program.fs

@@ -1,41 +1,31 @@
 open System
 open DataParser.Console.FileRead
 open DataParser.Console.FileWrite
-open DataParser.Console.DataFiles
-open DataParser.Console.Core
 
 [<Literal>] 
-let specPath = "./specs"
+let specFolderPath = "./specs"
 
 [<Literal>]
-let dataPath = "./data"
+let dataFolderPath = "./data"
 
 [<Literal>]
-let outputPath = "./output"
+let outputFolderPath = "./output"
 
-let okHandler = writeOutputFile outputPath
+let okHandler = writeOutputFile outputFolderPath
 
 let errorHandler = List.iter (eprintfn "Error occurred during processing: %+A")
 
-let program = result {
-    printfn "Reading spec files..."
-    let specs = readAllSpecFiles specPath
-
-    printfn "Retrieving data files..."
-    let dataFiles = getDataFiles dataPath
-
-    printfn "Parsing data files..."
-    let dataFileParsedResults = Seq.map (mapDataFilePath specs) dataFiles
-
-    printfn "Writing to output..."
-    Seq.iter (Result.biFoldMap okHandler errorHandler) dataFileParsedResults
-
-    return ()
-}
-
-match program with
-| Error e -> errorHandler e
-| Ok _ -> ()
+printfn "Reading spec files..."
+let specs = readAllSpecFiles specFolderPath
+
+printfn "Retrieving data files..."
+let dataFiles = readDataFiles dataFolderPath
+
+printfn "Parsing data files..."
+let dataFileParsedResults = Seq.map (mapDataFilePath specs) dataFiles
+
+printfn "Writing to output..."
+Seq.iter (Result.biFoldMap okHandler errorHandler) dataFileParsedResults
 
 printfn "Processing complete. Press Enter to exit."
 ignore <| Console.ReadLine()