Commit e9012cf1 authored by ross's avatar ross

[project @ 2005-01-21 00:14:41 by ross]

repair import breakage
parent a3ca2db7
......@@ -25,17 +25,19 @@ module Compat.Directory (
#include "config.h"
#endif
import Control.Exception ( bracket )
import Control.Monad ( when )
import System.Environment (getEnv)
import System.FilePath
#if __GLASGOW_HASKELL__ > 600
import Control.Exception ( bracket )
import Control.Monad ( when )
import Foreign.Marshal.Alloc ( allocaBytes )
import System.IO (IOMode(..), openBinaryFile, hGetBuf, hPutBuf, hClose)
import System.IO.Error ( try )
import Foreign.Marshal.Alloc ( allocaBytes )
import System.Directory(doesFileExist, doesDirectoryExist, getPermissions, setPermissions, createDirectory)
#if defined(__GLASGOW_HASKELL__)
import GHC.IOBase ( IOException(..) )
#else
import System.IO ( try )
#endif
import System.Directory(doesFileExist, doesDirectoryExist, getPermissions, setPermissions, createDirectory)
getAppUserDataDirectory :: String -> IO FilePath
getAppUserDataDirectory appName = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment