git.iko.soy/typeable/postgresql-simple
on master help sign in
Minor cleanups as suggested by Simon Hengel
a3ccfa0Leon P Smith
src/Database/PostgreSQL/Simple/Internal.hs+2−2
compare with master
unifiedsplit
@@ -156,12 +156,12 @@ postgreSQLConnectionString connectInfo = fromString connstr
156
156
157 str name field
157 str name field
158 | null value = id
158 | null value = id
159− | otherwise = (name ++) . quote value . space
159+ | otherwise = showString name . quote value . space
160 where value = field connectInfo
160 where value = field connectInfo
161
161
162 num name field
162 num name field
163 | value <= 0 = id
163 | value <= 0 = id
164− | otherwise = (name ++) . (show value ++) . space
164+ | otherwise = showString name . shows value . space
165 where value = field connectInfo
165 where value = field connectInfo
166
166
167 quote str rest = '\'' : foldr delta ('\'' : rest) str
167 quote str rest = '\'' : foldr delta ('\'' : rest) str