Refactor

byg/src/Main.hs

@@ -1,6 +1,5 @@
 module Main where
 
-import Types
 import ComputationM
 import Functions
 
@@ -8,7 +7,7 @@ test :: ComputationM ()
 test = do
   dir <- inject "retter"
   dirContents <- listDirectory dir
-  u <- mapComputationM openImage dirContents
+  _ <- mapComputationM openImage dirContents
   t <- inject ("hej", "hey.txt")
   saveFile t