Skip to content
This repository
Browse code

Fix tests to use required files

  • Loading branch information...
commit 866fdf65e22a452d7dfef4d397ef93b0ae0b66a8 1 parent 6539983
Chris Smith authored July 01, 2011
2  tests/TestLoad.hs
@@ -8,7 +8,7 @@ import System.Environment
8 8
 main = do
9 9
   args <- getArgs
10 10
   putStrLn $ "files: " ++ show args
11  
-  e <- try $ load args
  11
+  e <- try $ load (map Required args)
12 12
   case e of
13 13
     Left (err::SomeException) -> putStrLn $ "error: " ++ show err
14 14
     Right c -> putStr "ok: " >> display c
2  tests/TestReload.hs
@@ -23,7 +23,7 @@ main = do
23 23
     let myConfig = autoConfig {
24 24
                      onError = \e -> hPutStrLn stderr $ "uh oh: " ++ show e
25 25
                    }
26  
-    (c,_) <- autoReload myConfig temps
  26
+    (c,_) <- autoReload myConfig (map Required temps)
27 27
     display c
28 28
     subscribe c "dongly" $ \n v -> print (n,v) >> putMVar done ()
29 29
     forM_ temps $ \t -> L.appendFile t "\ndongly = 1\n"

0 notes on commit 866fdf6

Please sign in to comment.
Something went wrong with that request. Please try again.