From 5092619a63058d6b4a895ecdaef31fec7a8da4cc Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 11 Oct 2024 14:21:43 -0600 Subject: Replace all the qualification metadata with 'When (s .>= Qualified)' This makes deriving much easier and cleans up the messy contexts in GenericTree and elsewhere at the cost of slightly more obtuse syntax. --- src/Language/Fiddle/Compiler/Backend/C.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Language/Fiddle/Compiler/Backend') diff --git a/src/Language/Fiddle/Compiler/Backend/C.hs b/src/Language/Fiddle/Compiler/Backend/C.hs index 5379099..2e6421e 100644 --- a/src/Language/Fiddle/Compiler/Backend/C.hs +++ b/src/Language/Fiddle/Compiler/Backend/C.hs @@ -265,7 +265,7 @@ transpileWalk sourceFile headerFile t _ = case () of withFileAt headerFile middlePos $ do pad $ do emitDocComments a - struct (identifierFor metadata) $ do + struct (identifierFor (unwrap metadata)) $ do structBody objTypeBody return Stop _ -> return (Continue ()) -- cgit