git.iko.soy/rowtype-yoga/purescript-native
on b86119c help sign in
rowtype-yoga/purescript-native/src/Language/PureScript/Label.hs
16 lines 537 B history raw
1{-# LANGUAGE GeneralizedNewtypeDeriving #-}
2module Language.PureScript.Label (Label(..)) where
4import Prelude.Compat hiding (lex)
5import Data.Monoid ()
6import Data.String (IsString(..))
7import qualified Data.Aeson as A
9import Language.PureScript.PSString (PSString)
11-- |
12-- Labels are used as record keys and row entry names. Labels newtype PSString
13-- because records are indexable by PureScript strings at runtime.
14--
15newtype Label = Label { runLabel :: PSString }
16 deriving (Show, Eq, Ord, IsString, Monoid, A.ToJSON, A.FromJSON)