module Database.PostgreSQL.PQTypes.Model.Extension ( Extension(..) , ununExtension ) where import Data.String import Data.Text (Text) import Database.PostgreSQL.PQTypes import Prelude newtype Extension = Extension { Extension -> RawSQL () unExtension :: RawSQL () } deriving (Extension -> Extension -> Bool (Extension -> Extension -> Bool) -> (Extension -> Extension -> Bool) -> Eq Extension forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Extension -> Extension -> Bool $c/= :: Extension -> Extension -> Bool == :: Extension -> Extension -> Bool $c== :: Extension -> Extension -> Bool Eq, Eq Extension Eq Extension -> (Extension -> Extension -> Ordering) -> (Extension -> Extension -> Bool) -> (Extension -> Extension -> Bool) -> (Extension -> Extension -> Bool) -> (Extension -> Extension -> Bool) -> (Extension -> Extension -> Extension) -> (Extension -> Extension -> Extension) -> Ord Extension Extension -> Extension -> Bool Extension -> Extension -> Ordering Extension -> Extension -> Extension 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 :: Extension -> Extension -> Extension $cmin :: Extension -> Extension -> Extension max :: Extension -> Extension -> Extension $cmax :: Extension -> Extension -> Extension >= :: Extension -> Extension -> Bool $c>= :: Extension -> Extension -> Bool > :: Extension -> Extension -> Bool $c> :: Extension -> Extension -> Bool <= :: Extension -> Extension -> Bool $c<= :: Extension -> Extension -> Bool < :: Extension -> Extension -> Bool $c< :: Extension -> Extension -> Bool compare :: Extension -> Extension -> Ordering $ccompare :: Extension -> Extension -> Ordering $cp1Ord :: Eq Extension Ord, Int -> Extension -> ShowS [Extension] -> ShowS Extension -> String (Int -> Extension -> ShowS) -> (Extension -> String) -> ([Extension] -> ShowS) -> Show Extension forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Extension] -> ShowS $cshowList :: [Extension] -> ShowS show :: Extension -> String $cshow :: Extension -> String showsPrec :: Int -> Extension -> ShowS $cshowsPrec :: Int -> Extension -> ShowS Show, String -> Extension (String -> Extension) -> IsString Extension forall a. (String -> a) -> IsString a fromString :: String -> Extension $cfromString :: String -> Extension IsString) ununExtension :: Extension -> Text ununExtension :: Extension -> Text ununExtension = RawSQL () -> Text unRawSQL (RawSQL () -> Text) -> (Extension -> RawSQL ()) -> Extension -> Text forall b c a. (b -> c) -> (a -> b) -> a -> c . Extension -> RawSQL () unExtension