Experiment with 'regex-tdfa'

* Add the 'regex-tdfa' library for RegEx handling
* Experiment with matching a Git SHA

1 files changed, 9 insertions, 1 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index d36ff27..3bc9579 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -2,5 +2,13 @@ module Lib
     ( someFunc
     ) where
 
+import Text.Regex.TDFA
+
 someFunc :: IO ()
-someFunc = putStrLn "someFunc"
+someFunc
+    | rex == True = putStrLn "Match!!"
+    | otherwise   = putStrLn "No match"
+
+
+rex :: Bool
+rex = "75ac7b18a009ffe7a77a17a61d95c01395f36b44" =~ "^[0-9a-f]{5,40}$"