Commit 9db34d7b authored by Camil Staps's avatar Camil Staps 🐧

Strictness

parent 68f3d298
......@@ -2,4 +2,4 @@ definition module Regex.Match
from Regex import :: Regex, :: Position
match :: Regex [Char] -> [(Position, [Char])]
match :: !Regex [Char] -> [(Position, [Char])]
......@@ -20,7 +20,7 @@ import Regex
instance zero MatchStatus
where zero = {skipped=[], matched=[], unseen=[], can_skip=True}
match :: Regex [Char] -> [(Position, [Char])]
match :: !Regex [Char] -> [(Position, [Char])]
match r s = [(length st.skipped, st.matched) \\ st <- match` r status]
where status = {zero & unseen=s}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment