equal
deleted
inserted
replaced
119 (Right fc) -> do |
119 (Right fc) -> do |
120 print' "ok, parsing... " |
120 print' "ok, parsing... " |
121 let ptree = parse pascalUnit fileName fc |
121 let ptree = parse pascalUnit fileName fc |
122 case ptree of |
122 case ptree of |
123 (Left a) -> do |
123 (Left a) -> do |
124 liftIO $ writeFile (outputPath ++ "preprocess.out") fc |
124 liftIO $ writeFile (outputPath ++ fileName ++ "preprocess.out") fc |
125 printLn $ show a ++ "\nsee preprocess.out for preprocessed source" |
125 printLn $ show a ++ "\nsee preprocess.out for preprocessed source" |
126 fail "stop" |
126 fail "stop" |
127 (Right a) -> do |
127 (Right a) -> do |
128 printLn "ok" |
128 printLn "ok" |
129 modify (Map.insert fileName a) |
129 modify (Map.insert fileName a) |