khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 06:37:03 +03:00
Code Issues Projects Releases Wiki Activity

Update types along with relational-schema-0.1.1.0 or newer.

Browse Source
This commit is contained in:
Kei Hibino 2015-12-27 02:15:49 +09:00
parent 0b9f028a70
commit dc38bf3821
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/HDBC/MySQL/src/Main.hs
View File

@ -24,7 +24,7 @@ import Database.HDBC (runRaw, quickQuery', fromSql)
import Data.Time (Day, fromGregorian)
import Data.List (isInfixOf)
import Data.Int (Int32, Int64)
import Data.Int (Int8, Int64)
import Example.DataSource (connect)
import Example.User (user)
@ -61,7 +61,7 @@ main = handleSqlError' $ withConnectionIO connect $ \conn -> do
day = fromGregorian
sample3 :: Relation () (Int32, Int64)
sample3 :: Relation () (Int8, Int64)
sample3 = aggregateRelation
[ c >< count (u ! U.id')
| u <- query user
@ -86,4 +86,3 @@ main = handleSqlError' $ withConnectionIO connect $ \conn -> do
_ ->
error "failed to get 'sql_mode'"
runRaw conn $ "SET SESSION sql_mode = '" ++ newmode ++ "'"