Commits

Anonymous committed ba6cf15

Fix tests to use required files

Comments (0)

Files changed (2)

tests/TestLoad.hs

 main = do
   args <- getArgs
   putStrLn $ "files: " ++ show args
-  e <- try $ load args
+  e <- try $ load (map Required args)
   case e of
     Left (err::SomeException) -> putStrLn $ "error: " ++ show err
     Right c -> putStr "ok: " >> display c

tests/TestReload.hs

     let myConfig = autoConfig {
                      onError = \e -> hPutStrLn stderr $ "uh oh: " ++ show e
                    }
-    (c,_) <- autoReload myConfig temps
+    (c,_) <- autoReload myConfig (map Required temps)
     display c
     subscribe c "dongly" $ \n v -> print (n,v) >> putMVar done ()
     forM_ temps $ \t -> L.appendFile t "\ndongly = 1\n"