add :: [String] -> IO ()
add [fileName] = do
    jsonStr <- readFile fileName
    let v = parseVault jsonStr
    newEntry <- getEntryInfo v
    updateFile fileName $ prettyPrintedStr $ addEntry newEntry v
add :: [String] -> IO ()
add [fileName] = do
    jsonStr <- readFile fileName
    let v = parseVault jsonStr
    newEntry <- getEntryInfo v
    updateFile fileName $ prettyPrintedStr $ addEntry newEntry v
add [fileName] = do
    jsonStr <- readFile fileName
    let v = parseVault jsonStr
    newEntry <- getEntryInfo v
    updateFile fileName $ prettyPrintedStr $ addEntry newEntry v