{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} module Honeycomb.Types ( DatasetName(..) ) where import Lens.Micro (Lens', lens) import Data.ByteString.Char8 (ByteString) import Data.Text (Text) import Data.Word import Data.String (IsString) newtype DatasetName = DatasetName { DatasetName -> Text fromDatasetName :: Text } deriving (Int -> DatasetName -> ShowS [DatasetName] -> ShowS DatasetName -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [DatasetName] -> ShowS $cshowList :: [DatasetName] -> ShowS show :: DatasetName -> String $cshow :: DatasetName -> String showsPrec :: Int -> DatasetName -> ShowS $cshowsPrec :: Int -> DatasetName -> ShowS Show, DatasetName -> DatasetName -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: DatasetName -> DatasetName -> Bool $c/= :: DatasetName -> DatasetName -> Bool == :: DatasetName -> DatasetName -> Bool $c== :: DatasetName -> DatasetName -> Bool Eq, Eq DatasetName DatasetName -> DatasetName -> Bool DatasetName -> DatasetName -> Ordering DatasetName -> DatasetName -> DatasetName forall a. Eq a -> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a min :: DatasetName -> DatasetName -> DatasetName $cmin :: DatasetName -> DatasetName -> DatasetName max :: DatasetName -> DatasetName -> DatasetName $cmax :: DatasetName -> DatasetName -> DatasetName >= :: DatasetName -> DatasetName -> Bool $c>= :: DatasetName -> DatasetName -> Bool > :: DatasetName -> DatasetName -> Bool $c> :: DatasetName -> DatasetName -> Bool <= :: DatasetName -> DatasetName -> Bool $c<= :: DatasetName -> DatasetName -> Bool < :: DatasetName -> DatasetName -> Bool $c< :: DatasetName -> DatasetName -> Bool compare :: DatasetName -> DatasetName -> Ordering $ccompare :: DatasetName -> DatasetName -> Ordering Ord, String -> DatasetName forall a. (String -> a) -> IsString a fromString :: String -> DatasetName $cfromString :: String -> DatasetName IsString)