5b24f86 · squeal · git.iko.soy

test and install stuff

commit5b24f86bb0a38fc5b550d3f697c2545b4350dba0 authorEitan Chatav <eitan.chatav@gmail.com> dateSat 24 Mar 2018, 17:36 (9 years ago) parent6a729ea

2 files changed+3−3

unifiedsplit

.circleci/config.yml+1−1

@@ -11,7 +11,7 @@ jobs:

1111 - restore_cache:

1212 keys:

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

1515 - run: stack upgrade && stack update

1616 - run: stack build

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

145145class SListI tys => ToParams (x :: Type) (tys :: [NullityType]) where

146146 -- | >>> type Params = '[ 'NotNull 'PGbool, 'Null 'PGint2]

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

149149 --

150150 -- >>> :set -XDeriveGeneric

151151 -- >>> data Tuple = Tuple { p1 :: Bool, p2 :: Maybe Int16} deriving GHC.Generic

152152 -- >>> instance Generic Tuple

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

155155 toParams :: x -> NP (K (Maybe Strict.ByteString)) tys

156156instance (SListI tys, IsProductType x xs, AllZip ToColumnParam xs tys)

157157 => ToParams x tys where