halfs-0.2: Fsck.hs

module Main where
import Halfs (fsck)
--import System.Posix.Directory (changeWorkingDirectory)
import System.Environment(getArgs)

main :: IO ()
main = do
    a <- getArgs
    case a of
      [wd] -> do -- changeWorkingDirectory wd
                 fsck wd
                 putStrLn "file system checked"
                 return ()
      _ -> putStrLn "usage: newHalfsFS path/to/device"