1
1
mirror of https://github.com/github/semantic.git synced 2025-01-05 22:28:10 +03:00
This commit is contained in:
Ayman Nadeem 2020-05-13 11:33:13 -04:00
parent 9220bb88c5
commit e2d2ae229d

View File

@ -238,7 +238,7 @@ instance ToTags Rb.While where
tags Rb.While {condition = Parse.Success cond, body = Parse.Success b} = tags cond >> tags b
instance ToTags Rb.Until where
tags Rb.Until {condition, body} = tags condition >> tags body
tags Rb.Until {condition = Parse.Success cond, body = Parse.Success b} = tags cond >> tags b
instance ToTags Rb.Regex where
tags Rb.Regex {} = pure ()