fixup! Implemented TH splices for validated ByteString literals

Henry Sylvain review fixups

Author: hs-viktor

Data/ByteString/Internal/Type.hs

@@ -565,8 +565,8 @@ thLiteral :: String -> TH.Q (TH.TExp ByteString)
 #endif
 thLiteral "" = [||empty||]
 thLiteral s = case foldr' op (Octets 0 []) s of
-    Octets !n ws -> liftTyped (unsafePackLenBytes n ws)
-    Hichar !i !w -> liftCode $ fail $ "non-octet character '\\" ++
+    Octets n ws -> liftTyped (unsafePackLenBytes n ws)
+    Hichar i w  -> liftCode $ fail $ "non-octet character '\\" ++
         show w ++ "' at offset: " ++ show i
   where
     op _ (Hichar !i !w) = Hichar (i + 1) w
@@ -586,7 +586,7 @@ data H2W = Hex {-# UNPACK #-} !Int [Word8]
 --
 -- > :set -XTemplateHaskell
 -- > ehloCmd :: ByteString
--- > ehloCmd = $$(thLiteral "45484c4F")
+-- > ehloCmd = $$(thHexLiteral "45484c4F")
 --
 #if MIN_VERSION_template_haskell(2,17,0)
 thHexLiteral :: (MonadFail m, TH.Quote m) => String -> TH.Code m ByteString
@@ -596,9 +596,9 @@ thHexLiteral :: String -> TH.Q (TH.TExp ByteString)
 thHexLiteral "" = [||empty||]
 thHexLiteral s =
     case foldr' op (Hex 0 []) s of
-        (Hex n ws)  -> liftTyped (unsafePackLenBytes n ws)
-        (Odd i _ _) -> liftCode $ fail $ "Odd input length: " ++ show (1 + 2 * i)
-        (Bad i w)   -> liftCode $ fail $ "Non-hexadecimal character '\\" ++
+        Hex n ws  -> liftTyped (unsafePackLenBytes n ws)
+        Odd i _ _ -> liftCode $ fail $ "Odd input length: " ++ show (1 + 2 * i)
+        Bad i w   -> liftCode $ fail $ "Non-hexadecimal character '\\" ++
             show w ++ "' at offset: " ++ show i
   where
     -- Convert char to decimal digit value if result in [0, 9].