{-#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 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 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 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 forall a. (String -> a) -> IsString a fromString :: String -> MigrationName $cfromString :: String -> MigrationName IsString via Text