Browse Source

End of session check-in.

master
Craig Oates 6 years ago
parent
commit
ee7ac298b6
  1. 6
      WetPancake/ProductServices.fs
  2. 3
      WetPancakeCLI/ConsoleCommands.cs

6
WetPancake/ProductServices.fs

@ -2,6 +2,9 @@
module Pancake =
//YOU ARE UP TO HERE.
// NEED TO MOVE STUFF UP A LEVEL.
// CREATE AN OBJECT TO STOP THE STATIC CONTENT.
open SystemServices
open DataAccess
open DataCleaning
@ -9,6 +12,7 @@ module Pancake =
open DataStructuring
open DataServices
//KEEP THIS HERE.
let ApplyStandardSetup text =
text
|> ReplaceArtifact "\""
@ -18,6 +22,7 @@ module Pancake =
|> SplitText @"\s+"
|> ConcatToString
// MOVE THIS INTO AN OBJECT (OF SORTS)
let RequestRandomText =
let data =
LoadFile SelectRandomSampleFile
@ -31,6 +36,7 @@ module Pancake =
|> GenerateMap
GenerateMarkovText (PickRandomNumber 10) data
// MOVE THIS INTO AN OBJECT (OF SORTS)
let RequestRandomText2 =
let data2 =
LoadFile SelectRandomSampleFile

3
WetPancakeCLI/ConsoleCommands.cs

@ -1,7 +1,6 @@
using Console.Waterworks;
using Console.Waterworks.Attributes;
using System;
using WetPancake;
using static WetPancake.Pancake;
using static System.Environment;
@ -33,6 +32,8 @@ namespace WetPancakeCLI
[Usage("> GenerateRandomText")]
public static string GenerateRandomText()
{
// need to make new objects.
// the static class just hold onto the initial data generated.
var result = RequestRandomText2;
return result;
}

Loading…
Cancel
Save