Added data services

WetPancake/DataAccess.fs

@@ -1,4 +1,4 @@
-module internal FileProcessing
+module internal DataAccess
 
     open System
     open System.IO
@@ -16,10 +16,12 @@
         let files = ListSampleFiles
         files.[Random().Next(0, files.Length)]
 
-    let LoadFile path =
-        File.ReadAllText(path)
+    let LoadFile path = File.ReadAllText(path)
+    (*
+    these can move to data cleaning
             .Replace("\"", " ")
             .Replace("\n\nIn", " ")
             .Replace("\r", " ")
             .Replace("\n", " ")
-            .Replace("  ", " ")
+            .Replace("  ", " ")
+            *)

WetPancake/DataCleaning.fs

@@ -3,7 +3,6 @@
     open System.Text.RegularExpressions
     open System
 
-    let PickRandomNumber max = Random().Next(0, max);
 
     let SplitIntoWords text = Regex.Split(text, @"\s+")
 

WetPancake/DataServices.fs

@@ -0,0 +1,2 @@
+module DataServices
+

WetPancake/SystemServices.fs

@@ -1,2 +1,5 @@
-module SystemServices
+module internal SystemServices
 
+    open System
+    
+    let PickRandomNumber max = Random().Next(0, max);

WetPancake/WetPancake.fsproj

@@ -55,11 +55,12 @@
     <Content Include="TextFiles\console-waterworks-announcement.txt" />
     <Content Include="packages.config" />
     <Compile Include="AssemblyInfo.fs" />
-    <Compile Include="DataAccess.fs" />
     <Compile Include="SystemServices.fs" />
+    <Compile Include="DataAccess.fs" />
     <Compile Include="DataCleaning.fs" />
     <Compile Include="DataProcessing.fs" />
     <Compile Include="DataStructuring.fs" />
+    <Compile Include="DataServices.fs" />
     <Compile Include="ProductServices.fs" />
     <None Include="Script.fsx" />
   </ItemGroup>