die :: [String] -> API a
die pack = do
    let msg = unwords pack
    log $ unwords ["ERROR:", msg]
    throwError msg
die :: [String] -> API a
die pack = do
    let msg = unwords pack
    log $ unwords ["ERROR:", msg]
    throwError msg
die pack = do
    let msg = unwords pack
    log $ unwords ["ERROR:", msg]
    throwError msg