{-#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