Code gardening

Database/MySQL/Internal/Blaze.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE BangPatterns, CPP, MagicHash, OverloadedStrings, UnboxedTuples #-}
 
 -- | This module is designed to provide a shim for @blaze-textual@.

Database/MySQL/Simple.hs

@@ -184,7 +184,7 @@ formatMany conn q@(Query template) qs = do
 buildQuery :: Connection -> Query -> ByteString -> [Action] -> IO Builder
 buildQuery conn q template xs = zipParams queryFragments <$> mapM sub xs
   where sub (Plain b)  = pure b
-        sub (Escape s) = (inQuotes . fromByteString) <$> Base.escape conn s
+        sub (Escape s) = inQuotes . fromByteString <$> Base.escape conn s
         sub (Many ys)  = mconcat <$> mapM sub ys
         zipParams (t:ts) (p:ps) = t `mappend` p `mappend` zipParams ts ps
         zipParams [t] []        = t
@@ -198,8 +198,7 @@ buildQuery conn q template xs = zipParams queryFragments <$> mapM sub xs
 -- break a fragment if the question mark is in a string literal.
 splitQuery :: ByteString -> [Builder]
 splitQuery s =
-  reverse $ fmap (fromByteString . BS.pack . reverse) $
-    begin [] (BS.unpack s)
+  reverse $ fromByteString . BS.pack . reverse <$> begin [] (BS.unpack s)
   where
   begin = normal []
 
@@ -369,7 +368,7 @@ finishFold conn q z0 f = withResult (Base.useResult conn) q $ \r fs ->
       [] -> return z
       _  -> (f z $! convertResults fs row) >>= loop
 
-withResult :: (IO Base.Result) -> Query -> (Base.Result -> [Field] -> IO a) -> IO a
+withResult :: IO Base.Result -> Query -> (Base.Result -> [Field] -> IO a) -> IO a
 withResult fetchResult q act = bracket fetchResult Base.freeResult $ \r -> do
   ncols <- Base.fieldCount (Right r)
   if ncols == 0

Database/MySQL/Simple/Param.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, DeriveDataTypeable, DeriveFunctor, FlexibleInstances,
+{-# LANGUAGE CPP, DeriveDataTypeable, FlexibleInstances,
     OverloadedStrings, DefaultSignatures #-}
 
 -- |

Database/MySQL/Simple/Result.hs

@@ -180,13 +180,13 @@ instance Result (Ratio Integer) where
                               Long,LongLong]
 
 instance Result SB.ByteString where
-    convert f = doConvert f okText $ id
+    convert f = doConvert f okText id
 
 instance Result LB.ByteString where
     convert f = LB.fromChunks . (:[]) . convert f
 
 instance Result ST.Text where
-    convert f | isText f  = doConvert f okText $ ST.decodeUtf8
+    convert f | isText f  = doConvert f okText ST.decodeUtf8
               | otherwise = incompatible f (typeOf ST.empty)
                             "attempt to mix binary and text"
 

mysql-simple.cabal

@@ -3,7 +3,7 @@ version:        0.4.9
 homepage:       https://github.com/paul-rouse/mysql-simple
 bug-reports:    https://github.com/paul-rouse/mysql-simple/issues
 synopsis:       A mid-level MySQL client library.
-description:    
+description:
     A mid-level client library for the MySQL database, intended to be
     fast and easy to use.
     .
@@ -52,7 +52,6 @@ library
     containers,
     mysql >= 0.1.7,
     pcre-light,
-    old-locale,
     text >= 0.11.0.2,
     time >= 1.5
   if !impl(ghc >= 8.0)

test/CustomTypeSpec.hs

@@ -64,6 +64,6 @@ customTypeSpec conn =
       describe "writing a custom type" $ do
         it "should work with parameter substitution" $ do
           _ <- execute conn "insert into custom (i,c) values (?,?)"
-                            ((3::Int), Latin "nuntium")
+                            (3::Int, Latin "nuntium")
           result <- query_ conn "select c from custom where i = 3"
           result `shouldBe` [Only (Latin "nuntium")]

test/DateTimeSpec.hs

@@ -18,7 +18,7 @@ import Common                       ()
 -- An arbitrary date and time: 2022-05-25 13:09:34.375 UTC
 testTime :: UTCTime
 testTime = UTCTime (ModifiedJulianDay 59724)
-                   (realToFrac $ (378995 % 8 :: Rational))
+                   (realToFrac (378995 % 8 :: Rational))
 
 testYear :: Day
 testYear =

test/main.hs

@@ -21,6 +21,11 @@ isCI = do
                _ -> False
 
 -- This is how to connect to our test database
+--
+-- @
+-- CREATE USER test@localhost IDENTIFIED BY 'test';
+-- GRANT ALL PRIVILEGES ON test.* TO test@localhost;
+-- @
 testConn :: Bool -> ConnectInfo
 testConn ci = defaultConnectInfo {
                 connectHost     = "127.0.0.1"