tilia-0.1.0.0: corpora/vendored/other/cpp/directives-inside-a-block-comment-out.hs

{-# LANGUAGE CPP #-}

module Terminal.Win32 where

{-
typedef struct _KEY_EVENT_RECORD {
    BOOL bKeyDown;
    WORD wRepeatCount;
}
#ifdef __GNUC__
/* gcc's alignment is not what win32 expects */
 PACKED
#endif
KEY_EVENT_RECORD;
-}
data KeyEvent = KeyEvent
  { keyDown :: Bool,
    keyRepeat :: Int
  }