Rb.Unless

semantic-ruby/src/Language/Ruby/Tags.hs

@@ -225,10 +225,14 @@ instance ToTags Rb.Elsif where
       _ -> pure ()
 
 instance ToTags Rb.Unless where
-  tags Rb.Unless {condition, consequence, alternative} = do
-    tags condition
-    maybe (pure ()) tags consequence
-    maybe (pure ()) tags alternative
+  tags Rb.Unless {condition = Parse.Success cond, consequence, alternative} = do
+    tags cond
+    case consequence of 
+      Just (Parse.Success cons) -> tags cons
+      _ -> pure ()
+    case alternative of
+      Just (Parse.Success alt) -> tags alt
+      _ -> pure ()
 
 instance ToTags Rb.While where
   tags Rb.While {condition, body} = tags condition >> tags body