module Bricks.Keyword
(
Keyword
, keywords
, keyword'rec
, keyword'let
, keyword'in
, keyword'inherit
, keyword'inlineComment
, keywordString
, keywordText
) where
import Bricks.Internal.Prelude
import Bricks.Internal.Text (Text)
import qualified Bricks.Internal.Text as Text
newtype Keyword =
Keyword
{ keywordText :: Text
}
keywords :: [Keyword]
keywords =
[ keyword'rec
, keyword'let
, keyword'in
, keyword'inherit
, keyword'inlineComment
]
keywordString :: Keyword -> String
keywordString = Text.unpack . keywordText
keyword'rec :: Keyword
keyword'rec = Keyword "rec"
keyword'let :: Keyword
keyword'let = Keyword "let"
keyword'in :: Keyword
keyword'in = Keyword "in"
keyword'inherit :: Keyword
keyword'inherit = Keyword "inherit"
keyword'inlineComment :: Keyword
keyword'inlineComment = Keyword "--"