From 08d566f3a28370d2f63aa81ef27b405d59f6ddc0 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 30 Jul 2017 02:22:23 +0200
Subject: Experiment with 'regex-tdfa'

* Add the 'regex-tdfa' library for RegEx handling
* Experiment with matching a Git SHA
---
 src/Lib.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/Lib.hs')

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}$"
-- 
cgit v1.2.3