CaZzzer/fwl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

I don't even know rn

Browse Source
This commit is contained in:
Yura
2026-05-04 01:44:11 -07:00
parent d79206440a
commit 25f95996fb
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/FWL/Compile.hs
View File

@@ -257,9 +257,15 @@ renderNftType [t] = A.String (toText t)
renderNftType ts = toJSON ts renderNftType ts = toJSON ts
exprToVal :: Expr -> Value exprToVal :: Expr -> Value
exprToVal (ELit (LPort p)) = toJSON p exprToVal (ELit (LPort p)) = toJSON p
exprToVal (ELit (LInt n)) = toJSON n exprToVal (ELit (LInt n)) = toJSON n
exprToVal (ELit l) = A.String (toText (renderLit l)) 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 (EVar n) = A.String (toText n)
exprToVal (EQual ns) = A.String (toText (intercalate "." ns)) exprToVal (EQual ns) = A.String (toText (intercalate "." ns))
exprToVal _ = A.String "_" exprToVal _ = A.String "_"