main = do
    args <- getArgs
    case args of
        ("--infos"   : keys)    -> infoMode keys
        ("--filter"  : keys)    -> filterMode $ map C.pack keys
        otherwise               -> print usage
main = do
    args <- getArgs
    case args of
        ("--infos"   : keys)    -> infoMode keys
        ("--filter"  : keys)    -> filterMode $ map C.pack keys
        otherwise               -> print usage
main = do
    args <- getArgs
    case args of
        ("--infos"   : keys)    -> infoMode keys
        ("--filter"  : keys)    -> filterMode $ map C.pack keys
        otherwise               -> print usage