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 :: FilePath homeDirectory = IO FilePath -> FilePath forall a. IO a -> a IO.unsafePerformIO IO FilePath IO.getHomeDirectory {-# NOINLINE homeDirectory #-} isPosix :: Bool isPosix :: Bool isPosix = FilePath I.os FilePath -> FilePath -> Bool forall a. Eq a => a -> a -> Bool /= FilePath "mingw32" {-# NOINLINE isPosix #-}