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
---
 sorbot.cabal |  1 +
 src/Lib.hs   | 10 +++++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/sorbot.cabal b/sorbot.cabal
index ee8959b..758fdc5 100644
--- a/sorbot.cabal
+++ b/sorbot.cabal
@@ -17,6 +17,7 @@ library
   hs-source-dirs:      src
   exposed-modules:     Lib
   build-depends:       base >= 4.7 && < 5
+                     , regex-tdfa
   default-language:    Haskell2010
 
 executable sorbot-exe
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