{-#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
$c== :: MigrationName -> MigrationName -> Bool
== :: MigrationName -> MigrationName -> Bool
$c/= :: MigrationName -> MigrationName -> Bool
/= :: 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
$cshowsPrec :: Int -> MigrationName -> ShowS
showsPrec :: Int -> MigrationName -> ShowS
$cshow :: MigrationName -> String
show :: MigrationName -> String
$cshowList :: [MigrationName] -> ShowS
showList :: [MigrationName] -> ShowS
Show via Text
  deriving MigrationName -> ModifierParser
MigrationName -> FieldFormatter
(MigrationName -> FieldFormatter)
-> (MigrationName -> ModifierParser) -> PrintfArg MigrationName
forall a.
(a -> FieldFormatter) -> (a -> ModifierParser) -> PrintfArg a
$cformatArg :: MigrationName -> FieldFormatter
formatArg :: MigrationName -> FieldFormatter
$cparseFormat :: MigrationName -> ModifierParser
parseFormat :: MigrationName -> ModifierParser
PrintfArg via Text
  deriving String -> MigrationName
(String -> MigrationName) -> IsString MigrationName
forall a. (String -> a) -> IsString a
$cfromString :: String -> MigrationName
fromString :: String -> MigrationName
IsString via Text