Wuah

1 files changed, 7 insertions, 1 deletions

diff --git a/src/Fun/Tree.hs b/src/Fun/Tree.hs
index d6cdecd..ce6cf6c 100644
--- a/src/Fun/Tree.hs
+++ b/src/Fun/Tree.hs
@@ -17,8 +17,14 @@ data Visibility = PublicVisibility | PrivateVisibility
 data FunctionDeclaration = FunctionDeclaration String
                                                Visibility
                                                [String]
-                                               [String]
+                                               [FunctionFlag]
+  deriving Show
+data FunctionFlag = FunctionInline | FunctionDeprecated | FunctionUnknown
   deriving Show
+instance Read FunctionFlag where
+  readsPrec _ "inline"     = [(FunctionInline, "")]
+  readsPrec _ "deprecated" = [(FunctionDeprecated, "")]
+  readsPrec _ _            = [(FunctionUnknown, "")]
 
 data FunctionDefinition = FunctionDefinition FunctionPattern FunctionBody
   deriving Show