Verified Commit f344a616 authored by Camil Staps's avatar Camil Staps 🚀

Store parentheses around compound class instance types

parent 991ba9c2
Subproject commit aa5db1eb1b629f6037187e514eb8c0c465ed27e0
Subproject commit 9839931694706c7e765927f866ce6a75170a4b4c
......@@ -242,7 +242,7 @@ where
, 'DB'.Location lib mod (toLine pos) (findIclLine id (map fst types) =<< icl) ""
) \\ (id,types,pos) <- instances]
where
instances = map (appSnd3 (map (\t -> ('T'.toType t, cpp t)))) $
instances = map (appSnd3 (map (\t -> ('T'.toType t, cppp t)))) $
[(i.pi_ident.id_name, i.pi_types, i.pi_pos) \\ PD_Instance {pim_pi=i} <- dcl]
++ [(i.pi_ident.id_name, i.pi_types, i.pi_pos) \\ PD_Instances pis <- dcl, {pim_pi=i} <- pis]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment