Remove 'SPEC' ifdefs

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
-  )
+  ) where
-#endif
-  where
 
 import qualified GHC as G
 import FastString

core/Language/Haskell/GhcMod/CabalHelper.hs

@@ -16,15 +16,13 @@
 
 {-# LANGUAGE CPP #-}
 module Language.Haskell.GhcMod.CabalHelper
-#ifndef SPEC
   ( getComponents
   , getGhcMergedPkgOptions
   , getCabalPackageDbStack
   , prepareCabalHelper
   , withAutogen
-  )
+  , withCabal
-#endif
+  ) where
-  where
 
 import Control.Applicative
 import Control.Monad

core/Language/Haskell/GhcMod/Cradle.hs

@@ -1,15 +1,14 @@
 {-# LANGUAGE CPP #-}
 module Language.Haskell.GhcMod.Cradle
-#ifndef SPEC
+  ( findCradle
-  (
-    findCradle
   , findCradle'
   , findCradleNoLog
   , findSpecCradle
   , cleanupCradle
-  )
+
-#endif
+  -- * for @spec@
-  where
+  , plainCradle
+  ) where
 
 import Language.Haskell.GhcMod.PathsAndFiles
 import Language.Haskell.GhcMod.Monad.Types

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'
+    exe <- getExecutablePath'
-    return $ (if dir == "." then "" else dir) </> "ghc-mod"
+    stack <- lookupEnv "STACK_EXE"
-#else
+    case takeBaseName exe of
-ghcModExecutable = do
+      "spec" | Just _ <- stack ->
-  gpp <- lookupEnv "STACK_EXE"
+          (</> "ghc-mod") <$> getBinDir
-  case gpp of
+      "spec" ->
-    Just _ -> fmap (</> "ghc-mod") getBinDir
+          (</> "dist/build/ghc-mod/ghc-mod") <$> getCurrentDirectory
-    _      -> fmap (</> "dist/build/ghc-mod/ghc-mod") getCurrentDirectory
+      "ghc-mod" ->
-#endif
+          return exe
+      _ ->
+          return $ takeDirectory exe </> "ghc-mod"
 
 getExecutablePath' :: IO FilePath
 #if __GLASGOW_HASKELL__ >= 706

ghc-mod.cabal

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