@@ -9,7 +9,7 @@
99module Servant.JSSpec where
1010
1111import Data.Either (isRight)
12−import Data.Monoid ((<>))
12+import Data.Monoid ((<>), mconcat)
1313import Data.Proxy
1414import Data.Text (Text)
1515import qualified Data.Text as T
@@ -176,7 +176,7 @@ generateJSSpec n gen = describe specLabel $ do
176176 jsText `shouldContain` (header n "X-WhatsForDinner" $ "\"I would like \" + headerXWhatsForDinner + \" with a cherry on top.\"")
177177
178178 it "can generate the whole javascript code string at once with jsForAPI" $ do
179− let jsStr = jsForAPI (Proxy :: Proxy TestAPI) (concatMap gen)
179+ let jsStr = jsForAPI (Proxy :: Proxy TestAPI) (mconcat . map gen)
180180 parseFromText jsStr `shouldSatisfy` isRight
181181 where
182182 specLabel = "generateJS(" <> (show n) <> ")"