From: pho <pho@cielonegro.org>
Date: Tue, 2 Feb 2010 07:13:03 +0000 (+0900)
Subject: Cosmetic changes suggested by hlint.
X-Git-Tag: RELEASE-0_4_2~1
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=7943b7672278b5fc2b15f4005441b2c076e4e138;p=Lucu.git

Cosmetic changes suggested by hlint.

Ignore-this: 3c99a53ee77a5090e1a62b25df806c44

darcs-hash:20100202071303-62b54-3e4fe0788d6da07a58c25ff0013d49a9666d9d0a.gz
---

diff --git a/Network/HTTP/Lucu/Utils.hs b/Network/HTTP/Lucu/Utils.hs
index 9212747..f1c178d 100644
--- a/Network/HTTP/Lucu/Utils.hs
+++ b/Network/HTTP/Lucu/Utils.hs
@@ -10,9 +10,10 @@ module Network.HTTP.Lucu.Utils
     )
     where
 
-import Data.List hiding (last)
+import Control.Monad
+import Data.List     hiding (last)
 import Network.URI
-import Prelude hiding (last)
+import Prelude       hiding (last)
 
 -- |> splitBy (== ':') "ab:c:def"
 --  > ==> ["ab", "c", "def"]
@@ -25,14 +26,12 @@ splitBy isSep src
 -- |> joinWith ":" ["ab", "c", "def"]
 --  > ==> "ab:c:def"
 joinWith :: [a] -> [[a]] -> [a]
-joinWith separator xs
-    = separator `seq` xs `seq`
-      foldr (++) [] $! intersperse separator xs
+joinWith = (join .) . intersperse
 
 -- |> trim (== '_') "__ab_c__def___"
 --  > ==> "ab_c__def"
 trim :: (a -> Bool) -> [a] -> [a]
-trim p = p `seq` trimTail . trimHead
+trim !p = trimTail . trimHead
     where
       trimHead = dropWhile p
       trimTail = reverse . trimHead . reverse
@@ -53,8 +52,7 @@ isWhiteSpace _    = False
 --  > quoteStr "ab\"c"
 --  > ==> "\"ab\\\"c\""
 quoteStr :: String -> String
-quoteStr str = str `seq`
-               foldr (++) "" (["\""] ++ map quote str ++ ["\""])
+quoteStr !str = concat (["\""] ++ map quote str ++ ["\""])
     where
       quote :: Char -> String
       quote '"' = "\\\""