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

module App.Static.Base where

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

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

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