alfred-margaret-1.1.2.0: src/Data/Text/CaseSensitivity.hs

{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingStrategies #-}

module Data.Text.CaseSensitivity where

import Control.DeepSeq (NFData)
import Data.Hashable (Hashable)
import GHC.Generics (Generic)
#if defined(HAS_AESON)
import Data.Aeson (FromJSON, ToJSON)
#endif
data CaseSensitivity
  = CaseSensitive
  | IgnoreCase
  deriving stock (Eq, Generic, Show)
#if defined(HAS_AESON)
  deriving anyclass (Hashable, NFData, FromJSON, ToJSON)
#else
  deriving anyclass (Hashable, NFData)
#endif