module ClassInstType where

class Dir d where
        localDir :: d -> IO FilePath

instance Dir Directory where
        localDir (Local f) = return f
        localDir
          (Darcs{url = url, darcsVersion = Patch patch,
                 subDirectory = subDir})
          = do tmp <- createTempDir 0 "haskelld"
               darcsOut <- runDarcsCommand tmp "get"
                             ["--lazy", "--to-match", "hash " ++ patch, url, "fs"]
               print darcsOut
               let (ExitSuccess, "", out) = darcsOut
               print out
               return $ tmp </> "fs" </> subDir

type URL = String