Browse files

Minor cleanups as suggested by Simon Hengel

  • Loading branch information...
1 parent d138875 commit a3ccfa0dae5813032302b49c26192dedf9b509d9 @lpsmith committed Jan 10, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Database/PostgreSQL/Simple/Internal.hs
View
4 src/Database/PostgreSQL/Simple/Internal.hs
@@ -156,12 +156,12 @@ postgreSQLConnectionString connectInfo = fromString connstr
str name field
| null value = id
- | otherwise = (name ++) . quote value . space
+ | otherwise = showString name . quote value . space
where value = field connectInfo
num name field
| value <= 0 = id
- | otherwise = (name ++) . (show value ++) . space
+ | otherwise = showString name . shows value . space
where value = field connectInfo
quote str rest = '\'' : foldr delta ('\'' : rest) str

0 comments on commit a3ccfa0

Please sign in to comment.