view [fileName,tag] = do
    jsonStr <- readFile fileName
    let v = parseVault jsonStr
        es = filterTag (entries v) tag
    e <- selectEntry es
    password <- getMasterPassword
    if verifyMasterPass password v
        then do
            putStrLn $ showEntry password e
            setClipboard $ getEntryPassword password e
            putStrLn "\nEntry password copied to clipboard."
        else putStrLn "Incorrect password!"
view [fileName,tag] = do
    jsonStr <- readFile fileName
    let v = parseVault jsonStr
        es = filterTag (entries v) tag
    e <- selectEntry es
    password <- getMasterPassword
    if verifyMasterPass password v
        then do
            putStrLn $ showEntry password e
            setClipboard $ getEntryPassword password e
            putStrLn "\nEntry password copied to clipboard."
        else putStrLn "Incorrect password!"
view [fileName,tag] = do
    jsonStr <- readFile fileName
    let v = parseVault jsonStr
        es = filterTag (entries v) tag
    e <- selectEntry es
    password <- getMasterPassword
    if verifyMasterPass password v
        then do
            putStrLn $ showEntry password e
            setClipboard $ getEntryPassword password e
            putStrLn "\nEntry password copied to clipboard."
        else putStrLn "Incorrect password!"