yaml-marked-0.2.0.0: src/Data/Aeson/Compat/Key.hs

{-# LANGUAGE CPP #-}

module Data.Aeson.Compat.Key
  ( Key
  , fromText
  , toText
  , toString
  ) where

#if MIN_VERSION_aeson(2, 0, 0)
import Data.Aeson.Key
#else
import Prelude
import Data.Text (Text, unpack)

type Key = Text

fromText :: Text -> Key
fromText = id

toText :: Key -> Text
toText = id

toString :: Key -> String
toString = unpack . toText
#endif