cabal-cache-1.0.3.0: src/App/Static/Base.hs

module App.Static.Base where

import qualified System.Directory as IO
import qualified System.Info      as I
import qualified System.IO.Unsafe as IO

homeDirectory :: FilePath
homeDirectory = IO.unsafePerformIO IO.getHomeDirectory
{-# NOINLINE homeDirectory #-}

isPosix :: Bool
isPosix = I.os /= "mingw32"
{-# NOINLINE isPosix #-}