From e5db9bc58e785a5a4c7823227ec435a30090523c Mon Sep 17 00:00:00 2001 From: "Adam C. Baker" Date: Thu, 9 Oct 2014 14:14:53 -0700 Subject: [PATCH] remove top level binding in test script --- test/Feature/StructureSpec.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/test/Feature/StructureSpec.hs b/test/Feature/StructureSpec.hs index 075c85833..42cffb610 100644 --- a/test/Feature/StructureSpec.hs +++ b/test/Feature/StructureSpec.hs @@ -1,4 +1,3 @@ -{-# OPTIONS_GHC -fno-warn-missing-signatures #-} {-# LANGUAGE OverloadedStrings, QuasiQuotes #-} module Feature.StructureSpec where @@ -13,12 +12,10 @@ import Codec.Binary.Base64.String (encode) import Data.Monoid ((<>)) import Data.String.Conversions (cs) -uName = "a user" -uPass = "nobody can ever know" -uRole = "dbapi_test" - spec :: Spec -spec = around withDatabaseConnection $ +spec = let {uName = "a user"; uPass = "nobody can ever know"; +uRole = "dbapi_test"} in + around withDatabaseConnection $ aroundWith (withUser uName uPass uRole) $ aroundWith withApp $ do describe "GET /" $ it "lists views in schema" $