added missing expression construct

azardilis · Sep 5, 2017 · 2382994 · 2382994
1 parent a92e66d
commit 2382994
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Chromar/RExprs.hs b/src/Chromar/RExprs.hs
@@ -304,6 +304,7 @@ lExp nms (ConE nm) = ConE nm
 lExp nms (RecConE nm fexps) = RecConE nm (map (tFExp nms) fexps)
   where
     tFExp nms (nm, exp) = (nm, lExp nms exp)
+lExp nms (CondE e1 e2 e3) = CondE (lExp nms e1) (lExp nms e2) (lExp nms e3)
 lExp nms _ = undefined
 
 mkLiftExp :: Set Name -> Exp -> Exp