git.iko.soy/typeable/id
on master help sign in
B2H-746: Make packages compatible with vanila reflex-platform (#6092)
b70491cVladislav Lagunov
id.cabal+3−1
compare with master
unifiedsplit
@@ -18,10 +18,12 @@ library
18 hashable,
18 hashable,
19 http-api-data,
19 http-api-data,
20 lens,
20 lens,
21− postgresql-simple,
22 openapi3,
21 openapi3,
23 uuid,
22 uuid,
24 path-pieces,
23 path-pieces,
24+ if !impl(ghcjs)
25+ build-depends:
26+ postgresql-simple,
25 hs-source-dirs:
27 hs-source-dirs:
26 src
28 src
27 default-language:
29 default-language:
src/Data/Id.hs+8−1
@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
1{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE TemplateHaskell #-}
3{-# LANGUAGE TemplateHaskell #-}
3{-# OPTIONS_GHC -Wno-orphans #-}
4{-# OPTIONS_GHC -Wno-orphans #-}
@@ -18,8 +19,10 @@ import Data.Hashable (Hashable)
18import Data.OpenApi
19import Data.OpenApi
19import Data.UUID (UUID)
20import Data.UUID (UUID)
20import qualified Data.UUID as UUID
21import qualified Data.UUID as UUID
22+#ifndef ghcjs_HOST_OS
21import Database.PostgreSQL.Simple.FromField (FromField)
23import Database.PostgreSQL.Simple.FromField (FromField)
22import Database.PostgreSQL.Simple.ToField (ToField)
24import Database.PostgreSQL.Simple.ToField (ToField)
25+#endif
23import GHC.Generics (Generic)
26import GHC.Generics (Generic)
24import Test.QuickCheck
27import Test.QuickCheck
25import Web.HttpApiData
28import Web.HttpApiData
@@ -27,7 +30,11 @@ import Web.PathPieces (PathPiece(..))
27
30
28newtype Id t = Id { unId :: UUID }
31newtype Id t = Id { unId :: UUID }
29 deriving
32 deriving
30− ( Eq, Ord, Generic, Read, Show, Data, ToField, FromField, PathPiece, FromJSON
33+ ( Eq, Ord, Generic, Read, Show, Data
34+#ifndef ghcjs_HOST_OS
35+ , ToField, FromField
36+#endif
37+ , PathPiece, FromJSON
31 , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema, ToParamSchema
38 , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema, ToParamSchema
32 , FromHttpApiData, ToHttpApiData )
39 , FromHttpApiData, ToHttpApiData )
33
40