{-#LANGUAGE GeneralizedNewtypeDeriving #-} {-#LANGUAGE DerivingVia #-} module Database.Migrant.MigrationName where import Data.Text import Text.Printf import Data.String (IsString) newtype MigrationName = MigrationName { MigrationName -> Text unpackMigrationName :: Text } deriving MigrationName -> MigrationName -> Bool (MigrationName -> MigrationName -> Bool) -> (MigrationName -> MigrationName -> Bool) -> Eq MigrationName forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: MigrationName -> MigrationName -> Bool $c/= :: MigrationName -> MigrationName -> Bool == :: MigrationName -> MigrationName -> Bool $c== :: MigrationName -> MigrationName -> Bool Eq via Text deriving Int -> MigrationName -> ShowS [MigrationName] -> ShowS MigrationName -> String (Int -> MigrationName -> ShowS) -> (MigrationName -> String) -> ([MigrationName] -> ShowS) -> Show MigrationName forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [MigrationName] -> ShowS $cshowList :: [MigrationName] -> ShowS show :: MigrationName -> String $cshow :: MigrationName -> String showsPrec :: Int -> MigrationName -> ShowS $cshowsPrec :: Int -> MigrationName -> ShowS Show via Text deriving MigrationName -> ModifierParser MigrationName -> FieldFormatter (MigrationName -> FieldFormatter) -> (MigrationName -> ModifierParser) -> PrintfArg MigrationName forall a. (a -> FieldFormatter) -> (a -> ModifierParser) -> PrintfArg a parseFormat :: MigrationName -> ModifierParser $cparseFormat :: MigrationName -> ModifierParser formatArg :: MigrationName -> FieldFormatter $cformatArg :: MigrationName -> FieldFormatter PrintfArg via Text deriving String -> MigrationName (String -> MigrationName) -> IsString MigrationName forall a. (String -> a) -> IsString a fromString :: String -> MigrationName $cfromString :: String -> MigrationName IsString via Text