f517d44 · typeable/id · git.iko.soy

git.iko.soy/typeable/id

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

Co-authored-by: Uladzimir Stsepchanka <st.uladzimir@protonmail.com>

commitf517d447103600024020303cf97250fa45c35f01 authorVladimir Kalnitsky <klntsky@typeable.io> dateTue 8 Dec 2020, 11:02 (6 years ago) parent681762b

1 file changed+4−2

unifiedsplit

src/Data/Id.hs+4−2

@@ -1,3 +1,4 @@

1+{-# LANGUAGE DeriveDataTypeable #-}

12{-# LANGUAGE TemplateHaskell #-}

23{-# OPTIONS_GHC -Wno-orphans #-}

@@ -12,10 +13,11 @@ import Control.Lens

1213import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)

1314import Data.Binary (Binary)

1415import Data.Coerce (coerce)

16+import Data.Data

1517import Data.Hashable (Hashable)

18+import Data.OpenApi

1619import Data.UUID (UUID)

1720import qualified Data.UUID as UUID

18−import Data.OpenApi

1921import Database.PostgreSQL.Simple.FromField (FromField)

2022import Database.PostgreSQL.Simple.ToField (ToField)

2123import GHC.Generics (Generic)

@@ -25,7 +27,7 @@ import Yesod.Core (PathPiece(..))

2527

2628newtype Id t = Id { unId :: UUID }

2729 deriving

28− ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON

30+ ( Eq, Ord, Generic, Read, Show, Data, ToField, FromField, PathPiece, FromJSON

2931 , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema)

3032

3133type role Id nominal