21 lines
528 B
Haskell
21 lines
528 B
Haskell
module Main (main) where
|
|
|
|
import Database.HDBC (IConnection, commit, run, toSql)
|
|
|
|
updatePlayers :: IConnection a => a -> String -> Int -> Bool -> Int -> IO Bool
|
|
updatePlayers conn name score active jerseyNum = do
|
|
rowCount <- run conn
|
|
"UPDATE players\
|
|
\ SET name = ?, score = ?, active = ?\
|
|
\ WHERE jerseyNum = ?"
|
|
[ toSql name
|
|
, toSql score
|
|
, toSql active
|
|
, toSql jerseyNum
|
|
]
|
|
commit conn
|
|
return $ rowCount == 1
|
|
|
|
main :: IO ()
|
|
main = undefined
|