aboutsummaryrefslogtreecommitdiff
path: root/CabalHelper/Common.hs
diff options
context:
space:
mode:
Diffstat (limited to 'CabalHelper/Common.hs')
-rw-r--r--CabalHelper/Common.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/CabalHelper/Common.hs b/CabalHelper/Common.hs
index 90f9624..cf606d8 100644
--- a/CabalHelper/Common.hs
+++ b/CabalHelper/Common.hs
@@ -30,6 +30,8 @@ import qualified Data.ByteString.Char8 as BS8
import System.Environment
import System.IO
import System.Exit
+import System.Directory
+import System.FilePath
import Text.ParserCombinators.ReadP
import Prelude
@@ -95,3 +97,6 @@ runReadP :: ReadP t -> String -> t
runReadP p i = case filter ((=="") . snd) $ readP_to_S p i of
(a,""):[] -> a
_ -> error $ "Error parsing: " ++ show i
+
+appDataDir :: IO FilePath
+appDataDir = (</> "cabal-helper") <$> getAppUserDataDirectory "ghc-mod"