Start using class instances instead of GADT constructors

Maybe makes more sense here?
2024-09-21 17:37:37 +02:00
parent 124d9fa4d8
commit 6a2a87cfc3
3 changed files with 9 additions and 4 deletions
--- a/byg/src/Main.hs
+++ b/byg/src/Main.hs
@@ -6,9 +6,9 @@ import ComputationM
 test :: ComputationM TokenNotTraversable ()
 test = do
  dir <- inject "retter"
-  dirContents <- runIO ListDirectory dir
+  dirContents <- runIO ListDirectory' dir
  let dirContents' = makeTraversable dirContents
-  u <- mapM (runIO OpenImage) dirContents'
+  u <- mapM (runIO OpenImage') dirContents'
  pure $ NoToken

 main :: IO ()