mirror of
https://github.com/luau-lang/luau.git
synced 2025-05-04 10:33:46 +01:00
17 lines
476 B
Agda
17 lines
476 B
Agda
module Luau.Syntax.FromJSON where
|
|
|
|
open import Luau.Syntax using (Type; Block; Expr; nil; return)
|
|
|
|
open import Agda.Builtin.String using (String)
|
|
|
|
open import FFI.Data.Aeson using (Value)
|
|
open import FFI.Data.Either using (Either; Left; Right)
|
|
|
|
exprFromJSON : Value → Either String Expr
|
|
blockFromJSON : Value → Either String Block
|
|
|
|
-- TODO: implement this!
|
|
exprFromJSON v = Left "Not implemented yet"
|
|
|
|
-- TODO: implement this!
|
|
blockFromJSON v = Left "Not implemented yet"
|