From eea1bc0cac3242952b78b592b9458fb3479e1cd6 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Sun, 15 Feb 2015 16:03:31 -0800
Subject: [PATCH] Quasiquote json to fix vim syntax highlighting

---
 test/Feature/QuerySpec.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/Feature/QuerySpec.hs b/test/Feature/QuerySpec.hs
index 9a008df28..d6b65be5e 100644
--- a/test/Feature/QuerySpec.hs
+++ b/test/Feature/QuerySpec.hs
@@ -37,7 +37,7 @@ spec = beforeAll testSet . afterAll_ (clearTable "items") . around withApp $ do
     it "matches with equality" $
       get "/items?id=eq.5"
         `shouldRespondWith` ResponseMatcher {
-          matchBody    = Just "[{\"id\":5}]"
+          matchBody    = Just [json| [{"id":5}] |]
         , matchStatus  = 200
         , matchHeaders = ["Content-Range" <:> "0-0/1"]
         }
@@ -60,14 +60,14 @@ spec = beforeAll testSet . afterAll_ (clearTable "items") . around withApp $ do
     it "by a column asc" $
       get "/items?id=lte.2&order=id.asc"
         `shouldRespondWith` ResponseMatcher {
-          matchBody    = Just "[{\"id\":1},{\"id\":2}]"
+          matchBody    = Just [json| [{"id":1},{"id":2}] |]
         , matchStatus  = 200
         , matchHeaders = ["Content-Range" <:> "0-1/2"]
         }
     it "by a column desc" $
       get "/items?id=lte.2&order=id.desc"
         `shouldRespondWith` ResponseMatcher {
-          matchBody    = Just "[{\"id\":2},{\"id\":1}]"
+          matchBody    = Just [json| [{"id":2},{"id":1}] |]
         , matchStatus  = 200
         , matchHeaders = ["Content-Range" <:> "0-1/2"]
         }