From: Debian Haskell Group <pkg-haskell-maintainers@lists.alioth.debian.org>
Date: Mon, 14 Nov 2016 16:35:40 +0000 (+0000)
Subject: hurd
X-Git-Tag: archive/raspbian/8.0.2-9+rpi1~1^2^2~11
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=6b273b6074ddf8b02fbf00ca0436e866483bcad0;p=ghc.git

hurd

Provided by “Pino” via Samuel Thibault. Not yet pushed upstream.


Gbp-Pq: Name hurd.diff
---

diff --git a/aclocal.m4 b/aclocal.m4
index 52eee227..8de2f57f 100644
--- a/aclocal.m4
+++ b/aclocal.m4
@@ -277,7 +277,7 @@ AC_DEFUN([FPTOOLS_SET_HASKELL_PLATFORM_VARS],
         nto-qnx)
             test -z "[$]2" || eval "[$]2=OSQNXNTO"
             ;;
-        dragonfly|osf1|hpux|linuxaout|freebsd2|gnu|nextstep2|nextstep3|sunos4|ultrix|irix)
+        dragonfly|osf1|hpux|linuxaout|freebsd2|nextstep2|nextstep3|sunos4|ultrix|irix)
             test -z "[$]2" || eval "[$]2=OSUnknown"
             ;;
         aix)
@@ -286,6 +286,9 @@ AC_DEFUN([FPTOOLS_SET_HASKELL_PLATFORM_VARS],
         linux-android)
             test -z "[$]2" || eval "[$]2=OSAndroid"
             ;;
+        gnu)
+            test -z "[$]2" || eval "[$]2=OSHurd"
+            ;;
         *)
             echo "Unknown OS '[$]1'"
             exit 1
diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs
index cfd948e7..6c42092e 100644
--- a/compiler/utils/Platform.hs
+++ b/compiler/utils/Platform.hs
@@ -88,6 +88,7 @@ data OS
         | OSQNXNTO
         | OSAndroid
         | OSAIX
+        | OSHurd
         deriving (Read, Show, Eq)
 
 -- | ARM Instruction Set Architecture, Extensions and ABI
@@ -141,6 +142,7 @@ osElfTarget OSOsf3      = False -- I don't know if this is right, but as
 osElfTarget OSQNXNTO    = False
 osElfTarget OSAndroid   = True
 osElfTarget OSAIX       = False
+osElfTarget OSHurd      = True
 osElfTarget OSUnknown   = False
  -- Defaulting to False is safe; it means don't rely on any
  -- ELF-specific functionality.  It is important to have a default for