Remove 'SPEC' ifdefs

Author: DanielG

GhcModExe/Find.hs

@@ -1,7 +1,6 @@
 {-# LANGUAGE CPP, BangPatterns, TupleSections, DeriveGeneric #-}
 
 module GhcModExe.Find
-#ifndef SPEC
   ( Symbol
   , SymbolDb
   , loadSymbolDb
@@ -14,9 +13,7 @@ module GhcModExe.Find
   , AsyncSymbolDb
   , newAsyncSymbolDb
   , getAsyncSymbolDb
-  )
-#endif
-  where
+  ) where
 
 import qualified GHC as G
 import FastString

core/Language/Haskell/GhcMod/Utils.hs

@@ -79,17 +79,18 @@ whenM mb ma = mb >>= flip when ma
 -- | Returns the path to the currently running ghc-mod executable. With ghc<7.6
 -- this is a guess but >=7.6 uses 'getExecutablePath'.
 ghcModExecutable :: IO FilePath
-#ifndef SPEC
 ghcModExecutable = do
-    dir <- takeDirectory <$> getExecutablePath'
-    return $ (if dir == "." then "" else dir) </> "ghc-mod"
-#else
-ghcModExecutable = do
-  gpp <- lookupEnv "STACK_EXE"
-  case gpp of
-    Just _ -> fmap (</> "ghc-mod") getBinDir
-    _      -> fmap (</> "dist/build/ghc-mod/ghc-mod") getCurrentDirectory
-#endif
+    exe <- getExecutablePath'
+    stack <- lookupEnv "STACK_EXE"
+    case takeBaseName exe of
+      "spec" | Just _ <- stack ->
+          (</> "ghc-mod") <$> getBinDir
+      "spec" ->
+          (</> "dist/build/ghc-mod-real/ghc-mod-real") <$> getCurrentDirectory
+      "ghc-mod-real" ->
+          return exe
+      _ ->
+          return $ takeDirectory exe </> "ghc-mod"
 
 getExecutablePath' :: IO FilePath
 #if __GLASGOW_HASKELL__ >= 706

ghc-mod.cabal

@@ -285,7 +285,6 @@ Test-Suite spec
   Main-Is:              Main.hs
   Hs-Source-Dirs:       test, src
   Ghc-Options:          -Wall -fno-warn-deprecations -threaded
-  CPP-Options:          -DSPEC=1
   Type:                 exitcode-stdio-1.0
   Other-Modules:        Paths_ghc_mod
                         Dir