diff options
Diffstat (limited to 'cokiki.hs')
-rw-r--r-- | cokiki.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -10,6 +10,7 @@ import qualified Data.ByteString.Lazy.Char8 as L | |||
10 | import qualified Data.ByteString.Lazy.Char8 as L8 | 10 | import qualified Data.ByteString.Lazy.Char8 as L8 |
11 | import qualified Kiki | 11 | import qualified Kiki |
12 | import System.Directory | 12 | import System.Directory |
13 | import System.FilePath.Posix (takeDirectory) | ||
13 | import System.Environment | 14 | import System.Environment |
14 | import System.IO | 15 | import System.IO |
15 | import System.Posix.User | 16 | import System.Posix.User |
@@ -63,6 +64,7 @@ maybeReadFile :: FilePath -> IO (Maybe L.ByteString) | |||
63 | maybeReadFile path = do | 64 | maybeReadFile path = do |
64 | doesFileExist path >>= bool (return Nothing) (Just <$> L.readFile path) | 65 | doesFileExist path >>= bool (return Nothing) (Just <$> L.readFile path) |
65 | myWriteFile f bs = do | 66 | myWriteFile f bs = do |
67 | createDirectoryIfMissing True (takeDirectory f) | ||
66 | hPutStrLn stderr $ "Writing "++f | 68 | hPutStrLn stderr $ "Writing "++f |
67 | -- L8.putStr bs | 69 | -- L8.putStr bs |
68 | L8.writeFile f bs | 70 | L8.writeFile f bs |