From cd837b0c2cc85a7a7a8fccea875b2d8e4b32dec5 Mon Sep 17 00:00:00 2001
From: Mertcan D <54983926+mertcandav@users.noreply.github.com>
Date: Fri, 16 Sep 2022 15:34:40 +0300
Subject: [PATCH] Create HasSuffix.fs

---
 HasSuffix.fs | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 HasSuffix.fs

diff --git a/HasSuffix.fs b/HasSuffix.fs
new file mode 100644
index 0000000..b058946
--- /dev/null
+++ b/HasSuffix.fs
@@ -0,0 +1,6 @@
+module HasSuffix =
+    /// <summary>
+    /// Reports string has specified suffix or not.
+    /// </summary>
+    let HasSuffix (s: string, suffix: string) =
+        s.Length >= suffix.Length && s.Substring(s.Length-suffix.Length) = suffix