Use TMP and TMPDIR #256 (#257)

* Use TMP and TMPDIR #256

Use TMP and TMPDIR as defaults for the tmp directory

* Add lifts

* Bump version

* Update CHANGELOG

* Import Control.Applicative

Author: jfischoff

CHANGELOG.md

@@ -1,4 +1,7 @@
 Changelog for tmp-postgres
+- 1.35.0.0
+  - #256 Use TMP and TMPDIR as defaults for the tmp directory
+
 - 1.34.1.0
   - #229 Add a `auto_explain` config
 

src/Database/Postgres/Temp/Internal/Config.hs

@@ -45,6 +45,7 @@ import           System.IO.Temp (createTempDirectory)
 import           System.IO.Unsafe (unsafePerformIO)
 import           System.Process
 import           Text.PrettyPrint.ANSI.Leijen hiding ((<$>))
+import           Control.Applicative
 
 {-|
 
@@ -785,7 +786,10 @@ setupConfig
 setupConfig config@Config {..} = evalContT $ do
   envs <- lift getEnvironment
   thePort <- lift $ maybe getFreePort pure $ join $ getLast port
-  let resourcesTemporaryDir = fromMaybe "/tmp" $ getLast temporaryDirectory
+  tmpEnv <- lift $ lookupEnv "TMP"
+  tmpDirEnv <- lift $ lookupEnv "TMPDIR"
+  let defaultTemp = fromMaybe "/tmp" $ tmpEnv <|> tmpDirEnv
+      resourcesTemporaryDir = fromMaybe defaultTemp $ getLast temporaryDirectory
       resourcesInitDbCache = join $ getLast initDbCache
   resourcesSocketDirectory <- ContT $ bracketOnError
     (setupDirectoryType resourcesTemporaryDir "tmp-postgres-socket" socketDirectory) cleanupDirectoryType

tmp-postgres.cabal

@@ -1,5 +1,5 @@
 name:                tmp-postgres
-version:             1.34.1.0
+version:             1.35.0.0
 synopsis: Start and stop a temporary postgres
 description: Start and stop a temporary postgres. See README.md
 homepage:            https://github.com/jfischoff/tmp-postgres#readme