From e71d2ca431692c362d7686d5153b98a64c006e03 Mon Sep 17 00:00:00 2001 From: Kei Hibino Date: Fri, 12 Feb 2016 20:50:58 +0900 Subject: [PATCH] Update tests along with deprecations. --- relational-query/test/Model.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/relational-query/test/Model.hs b/relational-query/test/Model.hs index d2cfd566..f2fef767 100644 --- a/relational-query/test/Model.hs +++ b/relational-query/test/Model.hs @@ -11,21 +11,21 @@ import Database.Relational.Query (defaultConfig) import Database.Relational.Query.TH (defineTableDefault, makeRelationalRecordDefault, defineScalarDegree) -$(defineTableDefault defaultConfig "TEST" "set_a" +$(defineTable defaultConfig "TEST" "set_a" [ ("int_a0" , [t| Int32 |]) , ("str_a1" , [t| String |]) , ("str_a2" , [t| String |]) ] [] [0] $ Just 0) -$(defineTableDefault defaultConfig "TEST" "set_b" +$(defineTable defaultConfig "TEST" "set_b" [ ("int_b0" , [t| Int32 |]) , ("may_str_b1" , [t| Maybe String |]) , ("str_b2" , [t| String |]) ] [] [0] $ Just 0) -$(defineTableDefault defaultConfig "TEST" "set_c" +$(defineTable defaultConfig "TEST" "set_c" [ ("int_c0" , [t| Int32 |]) , ("str_c1" , [t| String |]) , ("int_c2" , [t| Int64 |]) @@ -33,7 +33,7 @@ $(defineTableDefault defaultConfig "TEST" "set_c" [] [0] $ Just 0) -$(defineTableDefault defaultConfig "TEST" "set_i" +$(defineTable defaultConfig "TEST" "set_i" [ ("int_i0" , [t| Int32 |]) ] [] [0] $ Just 0)