getTUFFile :: Sec.Path Sec.Absolute -> IO TUFFile
getTUFFile file =
    Sec.withFile file Sec.ReadMode $ \h ->
      evaluate . mkTUFFile =<< BS.Lazy.hGetContents h
getTUFFile :: Sec.Path Sec.Absolute -> IO TUFFile
getTUFFile file =
    Sec.withFile file Sec.ReadMode $ \h ->
      evaluate . mkTUFFile =<< BS.Lazy.hGetContents h
getTUFFile file =
    Sec.withFile file Sec.ReadMode $ \h ->
      evaluate . mkTUFFile =<< BS.Lazy.hGetContents h