1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
module Parser ( FractranProgram(..), parseFractran ) where import Text.Combinators.Parsec data FractranProgram = FractranProgram { fractions :: [(Int,Int)] } parseFractran :: String -> Either ParseError FractranProgram parseFractran = parse fractran "error"