We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 59771bb commit f08b490Copy full SHA for f08b490
1 file changed
src/Database/SqlServer/Types/Table.hs
@@ -47,7 +47,7 @@ columnConstraintsSatisfied xs = length (filter isTimeStamp xs) <= 1 &&
47
totalColumnSizeBytes <= 8060 &&
48
length (filter oneGuidCol xs) <= 1
49
where
50
- totalColumnSizeBits = (length xs * 8) 32 + sum (map (storageSize . dataType) xs)
+ totalColumnSizeBits = (length xs * 8) + 32 + sum (map (storageSize . dataType) xs)
51
totalColumnSizeBytes = totalColumnSizeBits `div` 8 + (if totalColumnSizeBits `rem` 8 /= 0 then 8 else 0)
52
isTimeStamp c = case dataType c of
53
(Timestamp _) -> True
0 commit comments