|
|
|
@ -18,12 +18,16 @@ module Pancake =
|
|
|
|
|
[] XML COMMENTS IN THIS FILE |
|
|
|
|
=============================================================================================================== *) |
|
|
|
|
|
|
|
|
|
// TODO: Add XML comments to CleanResult function. |
|
|
|
|
/// <summary> |
|
|
|
|
/// |
|
|
|
|
/// </summary> |
|
|
|
|
/// <param name="noOfSentences"></param> |
|
|
|
|
/// <param name="text"></param> |
|
|
|
|
let CleanResultAsync noOfSentences text = |
|
|
|
|
async { |
|
|
|
|
let cleanText = |
|
|
|
|
text |
|
|
|
|
|> RemoveArtifactSentences noOfSentences |
|
|
|
|
|> RemoveArtefactSentences noOfSentences |
|
|
|
|
return cleanText |
|
|
|
|
} |
|
|
|
|
|
|
|
|
@ -159,7 +163,11 @@ module Pancake =
|
|
|
|
|
return files |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
// TODO: Add XML comment for RequestCleanTextAsync. |
|
|
|
|
/// <summary> |
|
|
|
|
/// |
|
|
|
|
/// </summary> |
|
|
|
|
/// <param name="gibberishLevel"></param> |
|
|
|
|
/// <param name="sentences"></param> |
|
|
|
|
let RequestCleanTextAsync (gibberishLevel: int) (sentences: int) = |
|
|
|
|
async { |
|
|
|
|
let! text = RequestTextAsync gibberishLevel sentences |
|
|
|
@ -167,7 +175,12 @@ module Pancake =
|
|
|
|
|
return cleanText |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
// TODO: Add XML comment for RequestCleanTextFromFileAsync. |
|
|
|
|
/// <summary> |
|
|
|
|
/// |
|
|
|
|
/// </summary> |
|
|
|
|
/// <param name="gibberishLevel"></param> |
|
|
|
|
/// <param name="sentences"></param> |
|
|
|
|
/// <param name="filePath"></param> |
|
|
|
|
let RequestCleanTextFromFileAsync (gibberishLevel: int) (sentences: int) (filePath: string) = |
|
|
|
|
async { |
|
|
|
|
let! text = RequestTextFromFileAsync gibberishLevel sentences filePath |
|
|
|
|