From b341ace00350070cf363028f1ff67176226f473f Mon Sep 17 00:00:00 2001 From: Arian van Putten Date: Fri, 2 Oct 2015 14:45:50 +0200 Subject: [PATCH] More test fixes --- servant-js/test/Servant/JSSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/servant-js/test/Servant/JSSpec.hs b/servant-js/test/Servant/JSSpec.hs index ade935cc..cfc47443 100644 --- a/servant-js/test/Servant/JSSpec.hs +++ b/servant-js/test/Servant/JSSpec.hs @@ -9,7 +9,7 @@ module Servant.JSSpec where import Data.Either (isRight) -import Data.Monoid ((<>)) +import Data.Monoid ((<>), mconcat) import Data.Proxy import Data.Text (Text) import qualified Data.Text as T @@ -176,7 +176,7 @@ generateJSSpec n gen = describe specLabel $ do jsText `shouldContain` (header n "X-WhatsForDinner" $ "\"I would like \" + headerXWhatsForDinner + \" with a cherry on top.\"") it "can generate the whole javascript code string at once with jsForAPI" $ do - let jsStr = jsForAPI (Proxy :: Proxy TestAPI) (concatMap gen) + let jsStr = jsForAPI (Proxy :: Proxy TestAPI) (mconcat . map gen) parseFromText jsStr `shouldSatisfy` isRight where specLabel = "generateJS(" <> (show n) <> ")"