equal
deleted
inserted
replaced
28 unless processed $ do |
28 unless processed $ do |
29 fc' <- liftIO |
29 fc' <- liftIO |
30 $ tryJust (guard . isDoesNotExistError) |
30 $ tryJust (guard . isDoesNotExistError) |
31 $ hPutStr stderr ("Preprocessing '" ++ fileName ++ ".pas'... ") >> preprocess (fileName ++ ".pas") |
31 $ hPutStr stderr ("Preprocessing '" ++ fileName ++ ".pas'... ") >> preprocess (fileName ++ ".pas") |
32 case fc' of |
32 case fc' of |
33 (Left a) -> printLn "doesn't exist" |
33 (Left a) -> do |
|
34 modify (Map.insert fileName System) |
|
35 printLn "doesn't exist" |
34 (Right fc) -> do |
36 (Right fc) -> do |
35 printLn "ok" |
37 printLn "ok" |
36 let ptree = parse pascalUnit fileName fc |
38 let ptree = parse pascalUnit fileName fc |
37 case ptree of |
39 case ptree of |
38 (Left a) -> do |
40 (Left a) -> do |