git.iko.soy/typeable/id
on master help sign in
SSO-112: Implement Agencies table UI (#5534)
f517d44Vladimir Kalnitsky
src/Data/Id.hs+4−2
compare with master
unifiedsplit
@@ -1,3 +1,4 @@
1+{-# LANGUAGE DeriveDataTypeable #-}
1{-# LANGUAGE TemplateHaskell #-}
2{-# LANGUAGE TemplateHaskell #-}
2{-# OPTIONS_GHC -Wno-orphans #-}
3{-# OPTIONS_GHC -Wno-orphans #-}
3
4
@@ -12,10 +13,11 @@ import Control.Lens
12import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)
13import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)
13import Data.Binary (Binary)
14import Data.Binary (Binary)
14import Data.Coerce (coerce)
15import Data.Coerce (coerce)
16+import Data.Data
15import Data.Hashable (Hashable)
17import Data.Hashable (Hashable)
18+import Data.OpenApi
16import Data.UUID (UUID)
19import Data.UUID (UUID)
17import qualified Data.UUID as UUID
20import qualified Data.UUID as UUID
18−import Data.OpenApi
19import Database.PostgreSQL.Simple.FromField (FromField)
21import Database.PostgreSQL.Simple.FromField (FromField)
20import Database.PostgreSQL.Simple.ToField (ToField)
22import Database.PostgreSQL.Simple.ToField (ToField)
21import GHC.Generics (Generic)
23import GHC.Generics (Generic)
@@ -25,7 +27,7 @@ import Yesod.Core (PathPiece(..))
25
27
26newtype Id t = Id { unId :: UUID }
28newtype Id t = Id { unId :: UUID }
27 deriving
29 deriving
28− ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
30+ ( Eq, Ord, Generic, Read, Show, Data, ToField, FromField, PathPiece, FromJSON
29 , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema)
31 , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema)
30
32
31type role Id nominal
33type role Id nominal