Commit 576e7cbc authored by Ryan Scott's avatar Ryan Scott
Browse files

Suppress hsc2hs-related warning on GHC HEAD

parent b2b86de9
......@@ -167,7 +167,9 @@ getKeyEvent p = do
data Coord = Coord {coordX, coordY :: Int}
deriving Show
#if __GLASGOW_HASKELL__ < 711
#let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__)
#endif
instance Storable Coord where
sizeOf _ = (#size COORD)
alignment _ = (#alignment COORD)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment