mirror of
https://github.com/typeable/id.git
synced 2024-10-26 14:10:36 +03:00
SSO-112: Implement Agencies table UI (#5534)
Co-authored-by: Uladzimir Stsepchanka <st.uladzimir@protonmail.com>
This commit is contained in:
parent
681762b395
commit
f517d44710
@ -1,3 +1,4 @@
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
{-# OPTIONS_GHC -Wno-orphans #-}
|
||||
|
||||
@ -12,10 +13,11 @@ import Control.Lens
|
||||
import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)
|
||||
import Data.Binary (Binary)
|
||||
import Data.Coerce (coerce)
|
||||
import Data.Data
|
||||
import Data.Hashable (Hashable)
|
||||
import Data.OpenApi
|
||||
import Data.UUID (UUID)
|
||||
import qualified Data.UUID as UUID
|
||||
import Data.OpenApi
|
||||
import Database.PostgreSQL.Simple.FromField (FromField)
|
||||
import Database.PostgreSQL.Simple.ToField (ToField)
|
||||
import GHC.Generics (Generic)
|
||||
@ -25,7 +27,7 @@ import Yesod.Core (PathPiece(..))
|
||||
|
||||
newtype Id t = Id { unId :: UUID }
|
||||
deriving
|
||||
( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
|
||||
( Eq, Ord, Generic, Read, Show, Data, ToField, FromField, PathPiece, FromJSON
|
||||
, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema)
|
||||
|
||||
type role Id nominal
|
||||
|
Loading…
Reference in New Issue
Block a user