typeable/id
1
0
Fork 0
mirror of https://github.com/typeable/id.git synced 2024-10-26 14:10:36 +03:00
Code Issues Projects Releases Wiki Activity

SSO-112: Implement Agencies table UI (#5534)

Browse Source 
Co-authored-by: Uladzimir Stsepchanka <st.uladzimir@protonmail.com>
This commit is contained in:
Vladimir Kalnitsky 2020-12-08 11:02:20 +03:00 committed by GitHub
parent 681762b395
commit f517d44710
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Id.hs
View File

@ -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