module Festung.Vault ( extension , isVault ) where import System.FilePath (takeExtension) extension :: String extension = ".sqlcipher" isVault :: FilePath -> Bool isVault filename = takeExtension filename == extension