Permalink
Browse files

Fix linting test to ignore more

  • Loading branch information...
1 parent 38398ee commit 21bd1745521a2b59919771deed6e5dd1a54ed2e2 @batterseapower committed Jan 31, 2011
Showing with 5 additions and 2 deletions.
  1. +3 −0 tests/lint/.gitignore
  2. +2 −2 tests/lint/Shakefile.hs
View
@@ -0,0 +1,3 @@
+access-before-need
+access-without-need
+need-without-access
View
@@ -10,11 +10,11 @@ import Control.Monad.IO.Class
main :: IO ()
main = shake $ do
"access-without-need" *> \x -> do
- readFile "accessed-without-need"
+ liftIO $ readFile "accessed-without-need"
system' ["touch", "access-without-need"]
"access-before-need" *> \x -> do
- readFile "accessed-before-need"
+ liftIO $ readFile "accessed-before-need"
need ["accessed-before-need"]
system' ["touch", "access-before-need"]

0 comments on commit 21bd174

Please sign in to comment.