blob: ddbd41ff26b1a59b7561f8ce065364532481476a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module Lib
( someFunc
) where
import Text.Regex.TDFA
someFunc :: IO ()
someFunc
| rex == True = putStrLn "Match!!"
| otherwise = putStrLn "No match"
rex :: Bool
rex = "75ac7b18a009ffe7a77a17a61d95c01395f36b44" =~ "^[0-9a-f]{40}$"
|
