cabal-cache-1.0.4.0: app/App/Static/Windows.hs

module App.Static.Windows where

import Data.Maybe
import HaskellWorks.CabalCache.Location ((</>))

import qualified App.Static.Base    as S
import qualified System.Environment as IO
import qualified System.IO.Unsafe   as IO

appDataDirectory :: FilePath
appDataDirectory = IO.unsafePerformIO $ fmap (fromMaybe S.homeDirectory) (IO.lookupEnv "APPDATA")
{-# NOINLINE appDataDirectory #-}

cabalDirectory :: FilePath
cabalDirectory = appDataDirectory </> "cabal"