halfs-0.2: NewFS.hs

{-# OPTIONS -cpp #-}
module Main where
import Halfs (newFS)
--import System.Posix.Directory (changeWorkingDirectory)
import System.Environment(getArgs)

main :: IO ()
main = do
    a <- getArgs
    case a of
      [wd, size] -> do newFS wd (read size)
                       putStrLn $ "Created new filesystem at: " ++ (show wd)
                       return ()
      _ -> putStrLn "usage: newHalfsFS path/to/device sizeInBlocks"

-- getWorkingDirectory :: IO FilePath
-- changeWorkingDirectory :: FilePath -> IO ()