Silence insignificant -Wunused-imports warnings

Author: hvr

Data/Csv/Builder.hs

@@ -16,7 +16,7 @@ module Data.Csv.Builder
     , encodeDefaultOrderedNamedRecordWith
     ) where
 
-import Data.Monoid
+import qualified Data.Monoid as Mon
 
 import Data.ByteString.Builder as Builder
 import Data.Csv.Conversion
@@ -53,15 +53,15 @@ encodeHeaderWith = encodeRecordWith
 encodeRecordWith :: ToRecord a => EncodeOptions -> a -> Builder.Builder
 encodeRecordWith opts r =
     Encoding.encodeRecord (encQuoting opts) (encDelimiter opts) (toRecord r)
-    <> Encoding.recordSep (encUseCrLf opts)
+    Mon.<> Encoding.recordSep (encUseCrLf opts)
 
 -- | Like 'encodeNamedRecord', but lets you customize how the CSV data
 -- is encoded.
 encodeNamedRecordWith :: ToNamedRecord a =>
                          EncodeOptions -> Header -> a -> Builder.Builder
 encodeNamedRecordWith opts hdr nr =
     Encoding.encodeNamedRecord hdr (encQuoting opts) (encDelimiter opts)
-    (toNamedRecord nr) <> Encoding.recordSep (encUseCrLf opts)
+    (toNamedRecord nr) Mon.<> Encoding.recordSep (encUseCrLf opts)
 
 -- | Like 'encodeDefaultOrderedNamedRecord', but lets you customize
 -- how the CSV data is encoded.

Data/Csv/Conversion.hs

@@ -92,7 +92,7 @@ import Data.Int (Int8, Int16, Int32, Int64)
 import qualified Data.IntMap as IM
 import qualified Data.Map as M
 import Data.Scientific (Scientific)
-import Data.Semigroup (Semigroup, (<>))
+import Data.Semigroup as Semi (Semigroup, (<>))
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
 import qualified Data.Text.Lazy as LT
@@ -1245,14 +1245,14 @@ instance MonadPlus Parser where
     {-# INLINE mplus #-}
 
 -- | @since 0.5.0.0
-instance Semigroup (Parser a) where
+instance Semi.Semigroup (Parser a) where
     (<>) = mplus
     {-# INLINE (<>) #-}
 
 instance Monoid (Parser a) where
     mempty  = fail "mempty"
     {-# INLINE mempty #-}
-    mappend = (<>)
+    mappend = (Semi.<>)
     {-# INLINE mappend #-}
 
 apP :: Parser (a -> b) -> Parser a -> Parser b

Data/Csv/Conversion/Internal.hs

@@ -13,7 +13,7 @@ import Data.Array.IArray
 import qualified Data.ByteString as B
 import Data.Char (ord)
 import Data.Int
-import Data.Monoid
+import qualified Data.Monoid as Mon
 import Data.Scientific (Scientific)
 import Data.Word
 
@@ -51,9 +51,9 @@ formatDecimal :: Integral a => a -> Builder
     :: Word64 -> Builder #-}
 {-# NOINLINE formatDecimal #-}
 formatDecimal i
-    | i < 0     = minus <>
+    | i < 0     = minus Mon.<>
                   if i <= -128
-                  then formatPositive (-(i `quot` 10)) <> digit (-(i `rem` 10))
+                  then formatPositive (-(i `quot` 10)) Mon.<> digit (-(i `rem` 10))
                   else formatPositive (-i)
     | otherwise = formatPositive i
 
@@ -64,9 +64,9 @@ formatBoundedSigned :: (Integral a, Bounded a) => a -> Builder
 {-# SPECIALIZE formatBoundedSigned :: Int32 -> Builder #-}
 {-# SPECIALIZE formatBoundedSigned :: Int64 -> Builder #-}
 formatBoundedSigned i
-    | i < 0     = minus <>
+    | i < 0     = minus Mon.<>
                   if i == minBound
-                  then formatPositive (-(i `quot` 10)) <> digit (-(i `rem` 10))
+                  then formatPositive (-(i `quot` 10)) Mon.<> digit (-(i `rem` 10))
                   else formatPositive (-i)
     | otherwise = formatPositive i
 
@@ -83,7 +83,7 @@ formatPositive :: Integral a => a -> Builder
 {-# SPECIALIZE formatPositive :: Word64 -> Builder #-}
 formatPositive = go
   where go n | n < 10    = digit n
-             | otherwise = go (n `quot` 10) <> digit (n `rem` 10)
+             | otherwise = go (n `quot` 10) Mon.<> digit (n `rem` 10)
 
 minus :: Builder
 minus = word8 45
@@ -129,7 +129,7 @@ formatRealFloat fmt x
    | isInfinite x              = if x < 0
                                  then string8 "-Infinity"
                                  else string8 "Infinity"
-   | x < 0 || isNegativeZero x = minus <> doFmt fmt (floatToDigits (-x))
+   | x < 0 || isNegativeZero x = minus Mon.<> doFmt fmt (floatToDigits (-x))
    | otherwise                 = doFmt fmt (floatToDigits x)
  where
   doFmt format (is, e) =
@@ -142,17 +142,17 @@ formatRealFloat fmt x
         let show_e' = formatDecimal (e-1) in
         case ds of
           [48]    -> string8 "0.0e0"
-          [d]     -> word8 d <> string8 ".0e" <> show_e'
-          (d:ds') -> word8 d <> char8 '.' <> word8s ds' <>
-                     char8 'e' <> show_e'
+          [d]     -> word8 d Mon.<> string8 ".0e" Mon.<> show_e'
+          (d:ds') -> word8 d Mon.<> char8 '.' Mon.<> word8s ds' Mon.<>
+                     char8 'e' Mon.<> show_e'
           []      -> error "formatRealFloat/doFmt/Exponent: []"
      Fixed
-          | e <= 0    -> string8 "0." <>
-                         byteString (B.replicate (-e) zero) <>
+          | e <= 0    -> string8 "0." Mon.<>
+                         byteString (B.replicate (-e) zero) Mon.<>
                          word8s ds
           | otherwise ->
              let
-                f 0 s    rs  = mk0 (reverse s) <> char8 '.' <> mk0 rs
+                f 0 s    rs  = mk0 (reverse s) Mon.<> char8 '.' Mon.<> mk0 rs
                 f n s    []  = f (n-1) (zero:s) []
                 f n s (r:rs) = f (n-1) (r:s) rs
              in

Data/Csv/Incremental.hs

@@ -85,7 +85,7 @@ import Data.Attoparsec.ByteString.Char8 (endOfInput)
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Builder as Builder
 import qualified Data.ByteString.Lazy as L
-import Data.Semigroup (Semigroup, (<>))
+import Data.Semigroup as Semi (Semigroup, (<>))
 import qualified Data.Vector as V
 import Data.Word (Word8)
 
@@ -345,14 +345,14 @@ newtype Builder a = Builder {
     }
 
 -- | @since 0.5.0.0
-instance Semigroup (Builder a) where
+instance Semi.Semigroup (Builder a) where
     Builder f <> Builder g =
         Builder $ \ qtng delim useCrlf ->
         f qtng delim useCrlf <> g qtng delim useCrlf
 
 instance Monoid (Builder a) where
     mempty  = Builder (\ _ _ _ -> mempty)
-    mappend = (<>)
+    mappend = (Semi.<>)
 
 ------------------------------------------------------------------------
 -- ** Index-based record conversion
@@ -429,7 +429,7 @@ instance Semigroup (NamedBuilder a) where
 
 instance Monoid (NamedBuilder a) where
     mempty = NamedBuilder (\ _ _ _ _ -> mempty)
-    mappend = (<>)
+    mappend = (Semi.<>)
 
 ------------------------------------------------------------------------