I don't even know rn

2026-05-04 01:44:11 -07:00
parent d79206440a
commit 25f95996fb
1 changed files with 9 additions and 3 deletions
--- a/src/FWL/Compile.hs
+++ b/src/FWL/Compile.hs
@@ -259,6 +259,12 @@ renderNftType ts  = toJSON ts
 exprToVal :: Expr -> Value
 exprToVal (ELit (LPort p))   = toJSON p
 exprToVal (ELit (LInt n))    = toJSON n
+exprToVal (ELit (LCIDR ip p))= object
+  [ "prefix" .= object
+      [ "addr" .= A.String (toText (renderLit ip))
+      , "len"  .= p
+      ]
+  ]
 exprToVal (ELit l)           = A.String (toText (renderLit l))
 exprToVal (EVar n)         = A.String (toText n)
 exprToVal (EQual ns)       = A.String (toText (intercalate "." ns))