 path) >>= extractArchiveToTemp

data Args = Args {
  showHelp :: Bool
  , stringResources :: Bool
  , localisationKeys :: Bool
  , _traits :: Bool
  , gameRootPath :: FilePat
localMod path = do
  isDir ← doesDirectoryExist path
  if isDir
    then return path
    else liftM ( toArchive . BS.fromStrict ) (BS.readFile path) >>= extractArchiveToTemp
localMod path = do
  isDir ← doesDirectoryExist path
  if isDir
    then return path
    else liftM ( toArchive . BS.fromStrict ) (BS.readFile path) >>= extractArchiveToTemp