equal
deleted
inserted
replaced
79 char' '"' |
79 char' '"' |
80 spaces |
80 spaces |
81 char' '}' |
81 char' '}' |
82 f <- liftIO (readFile (inputPath ++ ifn) |
82 f <- liftIO (readFile (inputPath ++ ifn) |
83 `E.catch` (\(_ :: E.IOException) -> readFile (alternateInputPath ++ ifn) |
83 `E.catch` (\(_ :: E.IOException) -> readFile (alternateInputPath ++ ifn) |
84 `E.catch` (\(_ :: E.IOException) -> error ("File not found: " ++ fn)))) |
84 `E.catch` (\(_ :: E.IOException) -> error $ "File not found: " ++ ifn) |
|
85 ) |
|
86 ) |
85 c <- getInput |
87 c <- getInput |
86 setInput $ f ++ c |
88 setInput $ f ++ c |
87 return "" |
89 return "" |
88 |
90 |
89 ifdef = do |
91 ifdef = do |