diff --git a/Distribution/PreProcess.hs b/Distribution/PreProcess.hs
index 847793ead01f6801d1b296af036bb9e933054b80..2783c840a8ba63d69c2b69d8a4280e7c52222fe3 100644
--- a/Distribution/PreProcess.hs
+++ b/Distribution/PreProcess.hs
@@ -246,12 +246,12 @@ cppOptions bi lbi
             [opt | opt@('-':c:_) <- ccOptions bi, c `elem` "DIU"]
 
 hcDefines :: Compiler -> [String]
+hcDefines Compiler { compilerFlavor=GHC, compilerVersion=version }
+  = ["-D__GLASGOW_HASKELL__=" ++ versionInt version]
 hcDefines Compiler { compilerFlavor=NHC, compilerVersion=version }
   = ["-D__NHC__=" ++ versionInt version]
 hcDefines Compiler { compilerFlavor=Hugs }
   = ["-D__HUGS__"]
-hcDefines Compiler { compilerFlavor=GHC, compilerVersion=version }
-  = ["-D__GLASGOW_HASKELL__=" ++ versionInt version]
 hcDefines _ = []
 
 versionInt :: Version -> String