yxMain :: IO ()
yxMain = do
    dbFile <- getYxDatabaseFile
    yxExe <- getExecutablePath
    getArgs >>= \case
        "cd" : pattern : _ -> doCd dbFile yxExe pattern
        ["ls"] -> doLs dbFile Nothing
        "ls" : pattern : _ -> doLs dbFile $ Just pattern
        _ -> error "Unknown argument or option."
yxMain :: IO ()
yxMain = do
    dbFile <- getYxDatabaseFile
    yxExe <- getExecutablePath
    getArgs >>= \case
        "cd" : pattern : _ -> doCd dbFile yxExe pattern
        ["ls"] -> doLs dbFile Nothing
        "ls" : pattern : _ -> doLs dbFile $ Just pattern
        _ -> error "Unknown argument or option."
yxMain = do
    dbFile <- getYxDatabaseFile
    yxExe <- getExecutablePath
    getArgs >>= \case
        "cd" : pattern : _ -> doCd dbFile yxExe pattern
        ["ls"] -> doLs dbFile Nothing
        "ls" : pattern : _ -> doLs dbFile $ Just pattern
        _ -> error "Unknown argument or option."