Minor cleanups as suggested by Simon Hengel
commita3ccfa0dae5813032302b49c26192dedf9b509d9
authorLeon P Smith <leon@melding-monads.com>
dateTue 10 Jan 2012, 14:14 (15 years ago)
parentd138875
src/Database/PostgreSQL/Simple/Internal.hs+2−2
@@ -156,12 +156,12 @@ postgreSQLConnectionString connectInfo = fromString connstr
156156
157157 str name field
158158 | null value = id
159− | otherwise = (name ++) . quote value . space
159+ | otherwise = showString name . quote value . space
160160 where value = field connectInfo
161161
162162 num name field
163163 | value <= 0 = id
164− | otherwise = (name ++) . (show value ++) . space
164+ | otherwise = showString name . shows value . space
165165 where value = field connectInfo
166166
167167 quote str rest = '\'' : foldr delta ('\'' : rest) str