equal
deleted
inserted
replaced
93 |
93 |
94 docToLower :: Doc -> Doc |
94 docToLower :: Doc -> Doc |
95 docToLower = text . map toLower . render |
95 docToLower = text . map toLower . render |
96 |
96 |
97 pas2C :: String -> String -> String -> String -> IO () |
97 pas2C :: String -> String -> String -> String -> IO () |
98 pas2C fn inputPath alternateInputPath outputPath = do |
98 pas2C fn inputPath outputPath alternateInputPath = do |
99 s <- flip execStateT initState $ f fn |
99 s <- flip execStateT initState $ f fn |
100 renderCFiles s outputPath |
100 renderCFiles s outputPath |
101 where |
101 where |
102 printLn = liftIO . hPutStrLn stdout |
102 printLn = liftIO . hPutStrLn stdout |
103 print = liftIO . hPutStr stdout |
103 print = liftIO . hPutStr stdout |