tests/bkpregex/regex-example/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Regex.Types
import qualified Regex.String
import qualified Regex.ByteString

nocs = Rep (Alt (Sym 'a') (Sym 'b'))
onec = Seq nocs (Sym 'c')
evencs = Seq (Rep (Seq onec onec)) nocs
main = print (Regex.String.accept evencs "acc") >>
       print (Regex.ByteString.accept evencs "acc")