equal
deleted
inserted
replaced
9 import Data.Maybe |
9 import Data.Maybe |
10 import Database.HDBC |
10 import Database.HDBC |
11 import Database.HDBC.MySQL |
11 import Database.HDBC.MySQL |
12 import Data.List (lookup) |
12 import Data.List (lookup) |
13 import qualified Data.ByteString.Char8 as B |
13 import qualified Data.ByteString.Char8 as B |
|
14 import Data.Word |
14 -------------------------- |
15 -------------------------- |
15 import CoreTypes |
16 import CoreTypes |
16 import Utils |
17 import Utils |
17 |
18 |
18 |
19 |
89 , SqlByteString typ |
90 , SqlByteString typ |
90 , SqlByteString $ fromMaybe "" (lookup teamname teams) |
91 , SqlByteString $ fromMaybe "" (lookup teamname teams) |
91 , SqlInt32 (readInt_ value) |
92 , SqlInt32 (readInt_ value) |
92 , SqlByteString fileName |
93 , SqlByteString fileName |
93 , SqlByteString location |
94 , SqlByteString location |
94 , SqlInt32 p |
95 , SqlInt32 $ fromIntegral p |
95 ] : ps bs |
96 ] : ps bs |
96 ps (b:bs) = ps bs |
97 ps (b:bs) = ps bs |
97 |
98 |
98 |
99 |
99 dbConnectionLoop mySQLConnectionInfo = |
100 dbConnectionLoop mySQLConnectionInfo = |