Rb.If

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

@@ -215,10 +215,14 @@ instance ToTags Rb.If where
       _ -> pure ()
 
 instance ToTags Rb.Elsif where
-  tags Rb.Elsif {condition, consequence, alternative} = do
-    tags condition
-    maybe (pure ()) tags consequence
-    maybe (pure ()) tags alternative
+  tags Rb.Elsif {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.Unless where
   tags Rb.Unless {condition, consequence, alternative} = do