Fix unix-time in TH code when cross compiling for windows (#2237)

* Add test

* Fix unix-time in TH code when cross compiling for windows

* Fix older GHC versions

Author: hamishmack

overlays/patches/ghc/ghc-8.10-win-add-tzset-to-rtssyms.patch

@@ -2,7 +2,7 @@ diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c
 index 348e5ccc21..339d169c89 100644
 --- a/rts/RtsSymbols.c
 +++ b/rts/RtsSymbols.c
-@@ -149,7 +149,11 @@
+@@ -149,7 +149,12 @@
        RTS_WIN64_ONLY(SymI_HasProto_redirect(             \
           __imp___acrt_iob_func, __rts_iob_func, true))   \
        RTS_WIN32_ONLY(SymI_HasProto_redirect(             \
@@ -11,7 +11,8 @@ index 348e5ccc21..339d169c89 100644
 +      SymI_NeedsProto(_tzset)                            \
 +      /* ^^ This one needed for time, tzset deprecated */\
 +      SymI_NeedsProto(tzset)                             \
-+      /* ^^ This one needed for unix-time           */
++      SymI_HasProto(strtoll)                             \
++      /* ^^ These two are needed for unix-time         */
 
  #define RTS_MINGW_COMPAT_SYMBOLS                         \
        SymI_HasProto_deprecated(access)                   \

overlays/patches/ghc/ghc-9.2-win-add-tzset-to-rtssyms.patch

@@ -2,7 +2,7 @@ diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c
 index 534f30cd4c..9ec7e3a1e4 100644
 --- a/rts/RtsSymbols.c
 +++ b/rts/RtsSymbols.c
-@@ -183,7 +183,11 @@ extern char **environ;
+@@ -183,7 +183,12 @@ extern char **environ;
        SymI_HasProto(__mingw_vsnwprintf)                  \
        /* ^^ Need to figure out why this is needed.  */   \
        SymI_HasProto(__mingw_vfprintf)                    \
@@ -11,7 +11,8 @@ index 534f30cd4c..9ec7e3a1e4 100644
 +      SymI_NeedsProto(_tzset)                            \
 +      /* ^^ This one needed for time, tzset deprecated */\
 +      SymI_NeedsProto(tzset)                             \
-+      /* ^^ This one needed for unix-time           */
++      SymI_HasProto(strtoll)                             \
++      /* ^^ These two are needed for unix-time         */
 
  #define RTS_MINGW_COMPAT_SYMBOLS                         \
        SymI_HasProto_deprecated(access)                   \

overlays/patches/ghc/win-add-tzset-to-rtssyms.patch

@@ -2,7 +2,7 @@ diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c
 index 10efb2a..d8ea070 100644
 --- a/rts/RtsSymbols.c
 +++ b/rts/RtsSymbols.c
-@@ -163,7 +163,11 @@ extern char **environ;
+@@ -163,7 +163,12 @@ extern char **environ;
        SymI_HasProto(__mingw_vfprintf)                    \
        /* ^^ Need to figure out why this is needed.  */   \
        SymI_HasProto(closure_sizeW_)                      \
@@ -11,7 +11,8 @@ index 10efb2a..d8ea070 100644
 +      SymI_NeedsProto(_tzset)                            \
 +      /* ^^ This one needed for time, tzset deprecated */\
 +      SymI_NeedsProto(tzset)                             \
-+      /* ^^ This one needed for unix-time           */
++      SymI_HasProto(strtoll)                             \
++      /* ^^ These two are needed for unix-time         */
  #else
  #define RTS_MINGW_ONLY_SYMBOLS /**/
  #endif

test/th-dlls/th-dlls.cabal

@@ -13,6 +13,7 @@ library
                      , template-haskell
                      , text
                      , double-conversion
+                     , unix-time
   exposed-modules:     Lib
   hs-source-dirs:      src
   default-language:    Haskell2010