@@ -335,7 +335,7 @@ mtl_calculateFileSizesDeep
335335
336336#ifdef VERSION_polysemy
337337
338−data Poly_File (m :: * -> *) a where
338+data Poly_File :: E.Effect where
339339 Poly_tryFileSize :: FilePath -> Poly_File m (Maybe Int)
340340
341341poly_tryFileSize :: P.Member Poly_File es => FilePath -> P.Sem es (Maybe Int)
@@ -345,7 +345,7 @@ poly_runFile :: P.Member (P.Embed IO) es => P.Sem (Poly_File : es) a -> P.Sem es
345345poly_runFile = P.interpret \case
346346 Poly_tryFileSize path -> P.embed $ tryGetFileSize path
347347
348−data Poly_Logging (m :: * -> *) a where
348+data Poly_Logging :: E.Effect where
349349 Poly_logMsg :: String -> Poly_Logging m ()
350350
351351poly_logMsg :: P.Member Poly_Logging es => String -> P.Sem es ()