checkHomeDir :: IO ()
checkHomeDir = do
   homeDir <- getHomeDir
   createDirectoryIfMissing True homeDir
checkHomeDir :: IO ()
checkHomeDir = do
   homeDir <- getHomeDir
   createDirectoryIfMissing True homeDir
checkHomeDir = do
   homeDir <- getHomeDir
   createDirectoryIfMissing True homeDir