--- compiler/utils/Platform.hs.orig	2011-07-28 19:12:04 +0200
+++ compiler/utils/Platform.hs	2011-08-02 10:50:15 +0200
@@ -52,6 +52,7 @@
         | OSSolaris2
         | OSMinGW32
         | OSFreeBSD
+        | OSDragonFly
         | OSOpenBSD
         deriving (Show, Eq)
 
@@ -71,6 +72,7 @@
 osElfTarget :: OS -> Bool
 osElfTarget OSLinux    = True
 osElfTarget OSFreeBSD  = True
+osElfTarget OSDragonFly= True
 osElfTarget OSOpenBSD  = True
 osElfTarget OSSolaris2 = True
 osElfTarget OSDarwin   = False
@@ -116,6 +118,8 @@
 defaultTargetOS = OSMinGW32
 #elif freebsd_TARGET_OS
 defaultTargetOS = OSFreeBSD
+#elif dragonfly_TARGET_OS
+defaultTargetOS = OSDragonFly
 #elif openbsd_TARGET_OS
 defaultTargetOS = OSOpenBSD
 #else