1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
-------------------------------------------------------------------------------- --- A simple dummy parser that replaces '\n' with ' '. --- This parser was written for testing purposes. --- --- @author Jasper Sikorra --- @version January 2014 -------------------------------------------------------------------------------- module DummyParser ( parse ) where import ParseTypes parse :: LangParser parse _ s = return $ cleanPM (map (\c -> if (c == '\n') then ' ' else c) s) |