failInIO :: ErrorT String IO a -> IO a
failInIO = either fail return <=< runErrorT
failInIO :: ErrorT String IO a -> IO a
failInIO = either fail return <=< runErrorT
failInIO = either fail return <=< runErrorT