diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2017-12-03 01:08:37 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2018-01-18 14:10:26 +0100 |
| commit | 412148ce5f7911e818c6fe1e50981c2cd94858b1 (patch) | |
| tree | 750ed1a5aaf56e3e5475ab9b6a7d9435e1617e14 /tests/bkpregex/regex-example | |
| parent | 49dca6e8963a8fcd4e30d76d65068e9fa76a4a8d (diff) | |
ghc-session: Add backpack test project
Diffstat (limited to 'tests/bkpregex/regex-example')
| -rw-r--r-- | tests/bkpregex/regex-example/Main.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/bkpregex/regex-example/Main.hs b/tests/bkpregex/regex-example/Main.hs new file mode 100644 index 0000000..76d2974 --- /dev/null +++ b/tests/bkpregex/regex-example/Main.hs @@ -0,0 +1,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") |