Refactor

DataParser.Console/FileRead.fs

@@ -36,16 +36,16 @@ let readDataFiles folderPath =
     }
 
 let getDataFileFormats resultMap =
-    let folder (resultMap as ResultMap specs) state (filePath, fileName)  =
+    let folder state (filePath, fileName)  =
         match parseDataFileName fileName with
         | Error e -> Map.add filePath (Error e) state
         | Ok (DataFileName (formatName, _)) ->
-            let r = 
-                match Map.tryFind formatName specs with
+            let dataFileFormatResult = 
+                match ResultMap.tryFind formatName resultMap with
                 | Some formatLines ->
                     Result.bind (flip getDataFileFormat (filePath, fileName)) formatLines
                 | None -> Error [FileFormatNotFound (ResultMap.keys resultMap, formatName)]
-            Map.add filePath r state
+            Map.add filePath dataFileFormatResult state
 
-    Seq.fold (folder resultMap) Map.empty        
+    ResultMap << Seq.fold folder Map.empty
 

DataParser.Console/Program.fs

@@ -23,10 +23,7 @@ printfn "Retrieving data files..."
 let dataFiles = readDataFiles dataFolderPath
 
 printfn "Parsing data files..."
-let parsedDateFileFormats =
-    dataFiles
-    |> getDataFileFormats specs
-    |> ResultMap
+let parsedDateFileFormats = getDataFileFormats specs dataFiles
 
 let dataFileParsedResults =
     ResultMap.bindResult parseDataFile parsedDateFileFormats

DataParser.Console/ResultMap.fs

@@ -16,6 +16,9 @@ module ResultMap =
 
     let keys (ResultMap x) = Set.ofSeq (Map.keys x)
 
+    let tryFind key (ResultMap m) =
+        Map.tryFind key m
+
     let biIter f g (ResultMap x) =
         let go k = function Ok v -> f k v | Error e -> g k e
         Map.iter go x