MIMEType

[Lucu.git] / Network / HTTP / Lucu / Utils.hs

diff --git a/Network/HTTP/Lucu/Utils.hs b/Network/HTTP/Lucu/Utils.hs
index 387cca24a58f16bf3b08f4a63a99e2a3f41aeedc..abd4556b64930789940b2f89da1e75e5fe6c7ca5 100644 (file)
--- a/Network/HTTP/Lucu/Utils.hs
+++ b/Network/HTTP/Lucu/Utils.hs
@@ -32,17 +32,15 @@ splitBy isSep src
 
 -- |> joinWith ":" ["ab", "c", "def"]
 --  > ==> "ab:c:def"
-joinWith ∷ Ascii → [Ascii] → AsciiBuilder
+joinWith ∷ Ascii → [AsciiBuilder] → AsciiBuilder
 {-# INLINEABLE joinWith #-}
 joinWith sep = flip go (∅)
     where
-      go ∷ [Ascii] → A.AsciiBuilder → A.AsciiBuilder
+      go ∷ [AsciiBuilder] → AsciiBuilder → AsciiBuilder
       {-# INLINE go #-}
       go []     ab = ab
-      go (x:[]) ab = ab ⊕ A.toAsciiBuilder x
-      go (x:xs) ab = go xs ( ab ⊕
-                             A.toAsciiBuilder sep ⊕
-                             A.toAsciiBuilder x )
+      go (x:[]) ab = ab ⊕ x
+      go (x:xs) ab = go xs (ab ⊕ A.toAsciiBuilder sep ⊕ x)
 
 -- |> quoteStr "abc"
 --  > ==> "\"abc\""