{-# LANGUAGE CPP #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Data.Aeson.KeyHelper
( module KeyMap
, toKey
, toText
) where
import Prelude (id)
import qualified Data.Text as Text
#if MIN_VERSION_aeson (2,0,0)
import qualified Data.Aeson.Key as Key
import Data.Aeson.KeyMap as KeyMap hiding (map)
toKey :: Text.Text -> Key.Key
toKey :: Text -> Key
toKey = Text -> Key
Key.fromText
toText :: Key.Key -> Text.Text
toText :: Key -> Text
toText = Key -> Text
Key.toText
#else
import Data.HashMap.Strict as KeyMap hiding (map)
toKey :: Text.Text -> Text.Text
toKey = id
toText :: Text.Text -> Text.Text
toText = id
#endif