fix: Process Maybe in TraverseAst correctly.

We were skipping all the var-decl-initialisers. Luckily no new things were found in toxcore after this fix.
TokTok · Mar 14, 2022 · adbd8ec · adbd8ec
1 parent d4d5bdc
commit adbd8ec
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Language/Cimple/TraverseAst.hs b/src/Language/Cimple/TraverseAst.hs
@@ -55,7 +55,9 @@ data AstActions f text = AstActions
 
 instance TraverseAst text        a
       => TraverseAst text (Maybe a) where
-    traverseFileAst _ _ _ = pure ()
+    traverseFileAst _ _ Nothing = pure ()
+    traverseFileAst actions currentFile (Just x) =
+        traverseFileAst actions currentFile x
 
 astActions
     :: Applicative f