Skip to content

Commit c5499fc

Browse files
committed
Use blankCompOpt to adhere to POSIX extended regex.
In particular let a dot match newlines as required.
1 parent fd34e63 commit c5499fc

File tree

1 file changed

+1
-1
lines changed
  • haskell_edsl/src/Checktestdata

1 file changed

+1
-1
lines changed

haskell_edsl/src/Checktestdata/Core.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -258,7 +258,7 @@ string s = PrimOp $ do
258258
-- | Match with the given regular expression
259259
regex :: String -> CTD String
260260
regex rs = PrimOp $ do
261-
let reg = compile defaultCompOpt defaultExecOpt $ BS.pack rs
261+
let reg = compile blankCompOpt defaultExecOpt $ BS.pack rs
262262
case reg of
263263
Left e -> failWithLocation e
264264
Right r -> do

0 commit comments

Comments
 (0)