\begin{code}
module Util (
- debugIsOn,
+ debugIsOn, isWindowsHost,
-- general list processing
zipEqual, zipWithEqual, zipWith3Equal, zipWith4Equal,
%************************************************************************
%* *
-\subsection{-DDEBUG}
+\subsection{Is DEBUG on, are we on Windows?}
%* *
%************************************************************************
#else
debugIsOn = False
#endif
+
+isWindowsHost :: Bool
+#ifdef mingw32_HOST_OS
+isWindowsHost = True
+#else
+isWindowsHost = False
+#endif
\end{code}
%************************************************************************