16 lines
359 B
Agda
16 lines
359 B
Agda
module Luau.RuntimeType where
|
|
|
|
open import Luau.Value using (Value; nil; addr; number; bool)
|
|
|
|
data RuntimeType : Set where
|
|
function : RuntimeType
|
|
number : RuntimeType
|
|
nil : RuntimeType
|
|
boolean : RuntimeType
|
|
|
|
valueType : Value → RuntimeType
|
|
valueType nil = nil
|
|
valueType (addr x) = function
|
|
valueType (number x) = number
|
|
valueType (bool _) = boolean
|