diff --git a/WetPancake/ProductServices.fs b/WetPancake/ProductServices.fs
index bbbe3bd..88d0489 100644
--- a/WetPancake/ProductServices.fs
+++ b/WetPancake/ProductServices.fs
@@ -44,6 +44,17 @@ module Pancake =
| :? InvalidOperationException -> return text
}
+ ///
+ /// Checks the text within the specified file to see if it contains a vaild end token.
+ /// They are '.', '!' and '?'.
+ ///
+ ///
+ /// The path of the .txt file being tested.
+ ///
+ ///
+ /// This function does not check to see if the filepath is valid.
+ /// Be sure to check the path is valid before calling this function.
+ ///
let TextInFileIsValidAsync filePath =
async {
return DataAccess.LoadFile filePath |> TextContainsValidEndToken