git.iko.soy/squeal
on dev help sign in
test and install stuff
5b24f86Eitan Chatav
.circleci/config.yml+1−1
compare with dev
unifiedsplit
@@ -11,7 +11,7 @@ jobs:
11 - restore_cache:
11 - restore_cache:
12 keys:
12 keys:
13 - dependency-cache
13 - dependency-cache
14− - run: apt-get update && apt-get install -y libpq-dev
14+ - run: apt-get update && apt-get install -y libpq-dev xz make
15 - run: stack upgrade && stack update
15 - run: stack upgrade && stack update
16 - run: stack build
16 - run: stack build
17 - run: stack test
17 - run: stack test
squeal-postgresql/src/Squeal/PostgreSQL/Binary.hs+2−2
@@ -145,13 +145,13 @@ instance ToParam x pg => ToColumnParam (Maybe x) ('Null pg) where
145class SListI tys => ToParams (x :: Type) (tys :: [NullityType]) where
145class SListI tys => ToParams (x :: Type) (tys :: [NullityType]) where
146 -- | >>> type Params = '[ 'NotNull 'PGbool, 'Null 'PGint2]
146 -- | >>> type Params = '[ 'NotNull 'PGbool, 'Null 'PGint2]
147 -- >>> toParams @(Bool, Maybe Int16) @'[ 'NotNull 'PGbool, 'Null 'PGint2] (False, Just 0)
147 -- >>> toParams @(Bool, Maybe Int16) @'[ 'NotNull 'PGbool, 'Null 'PGint2] (False, Just 0)
148− -- K (Just "\NUL") :* (K (Just "\NUL\NUL") :* Nil)
148+ -- K (Just "\NUL") :* K (Just "\NUL\NUL") :* Nil
149 --
149 --
150 -- >>> :set -XDeriveGeneric
150 -- >>> :set -XDeriveGeneric
151 -- >>> data Tuple = Tuple { p1 :: Bool, p2 :: Maybe Int16} deriving GHC.Generic
151 -- >>> data Tuple = Tuple { p1 :: Bool, p2 :: Maybe Int16} deriving GHC.Generic
152 -- >>> instance Generic Tuple
152 -- >>> instance Generic Tuple
153 -- >>> toParams @Tuple @Params (Tuple False (Just 0))
153 -- >>> toParams @Tuple @Params (Tuple False (Just 0))
154− -- K (Just "\NUL") :* (K (Just "\NUL\NUL") :* Nil)
154+ -- K (Just "\NUL") :* K (Just "\NUL\NUL") :* Nil
155 toParams :: x -> NP (K (Maybe Strict.ByteString)) tys
155 toParams :: x -> NP (K (Maybe Strict.ByteString)) tys
156instance (SListI tys, IsProductType x xs, AllZip ToColumnParam xs tys)
156instance (SListI tys, IsProductType x xs, AllZip ToColumnParam xs tys)
157 => ToParams x tys where
157 => ToParams x tys where