Get rid of the final traversable cruft

2024-09-21 18:49:50 +02:00
parent 9410a39527
commit af2b9202ef
2 changed files with 17 additions and 19 deletions
--- a/byg/src/Main.hs
+++ b/byg/src/Main.hs
@@ -3,12 +3,12 @@ module Main where
 import Types
 import ComputationM

-testSub :: ComputationM TokenNotTraversable Image
+testSub :: ComputationM Image
 testSub = do
  inp <- getListElem
  openImage inp

-test :: ComputationM TokenNotTraversable ()
+test :: ComputationM ()
 test = do
  dir <- inject "retter"
  dirContents <- listDirectory dir