testKatLoad :: FilePath
            -> ([String] -> [(String, [a])])
            -> IO (Resource a)
testKatLoad filepath transform = Resource . transform . lines <$> readFile filepath
testKatLoad :: FilePath
            -> ([String] -> [(String, [a])])
            -> IO (Resource a)
testKatLoad filepath transform = Resource . transform . lines <$> readFile filepath
testKatLoad filepath transform = Resource . transform . lines <$> readFile filepath