-- |Print unsupported file format error message
unsupported :: String -> IO ()
unsupported fmt = do
    qf <- getProgName
    error $ "file format '" ++ fmt ++ "' is not supported.\n" ++
            "See '" ++ qf ++ " list' to print the available formats."  

-- |Template Haskell dispatcher derivations
unsupported :: String -> IO ()
unsupported fmt = do
    qf <- getProgName
    error $ "file format '" ++ fmt ++ "' is not supported.\n" ++
            "See '" ++ qf ++ " list' to print the available formats."  

-- |Template Haskell dispatcher derivations
unsupported fmt = do
    qf <- getProgName
    error $ "file format '" ++ fmt ++ "' is not supported.\n" ++
            "See '" ++ qf ++ " list' to print the available formats."  

-- |Template Haskell dispatcher derivations