Fix for causality when using linear types

compiler/heptagon/analysis/causal.ml

@@ -231,7 +231,7 @@ let build ac =
                 | Aand _ | Atuple _ -> make_graph ac
                 | _ -> [], []
             in
-            let g = make ac in
+            let g = node_for_ac ac in
             List.iter (add_dependence g) l;
            (* let top_l, bot_l = List.split (List.map make_graph_tuple l) in
             let top_l = List.flatten top_l in

compiler/heptagon/analysis/causality.ml

@@ -28,10 +28,12 @@ let cand c1 c2 =
 let rec candlist l =
   match l with
     | [] -> Cempty
+    | [c] -> c
     | c1 :: l -> cand c1 (candlist l)
 
-let ctuplelist l =
-  Ctuple l
+let ctuplelist l = match l with
+  | [c] -> c
+  | _ -> Ctuple l
 
 let cor c1 c2 =
   match c1, c2 with