Hi Fredrik, First, do you use the latest parsec version (3.1.3)? If not, can you try the same with 3.1.3?
Second, please upload your code to hpaste.org or a similar service and give us the link. It's not much fun to extract code from an html email. Roman * Fredrik Karlsson <dargo...@gmail.com> [2013-07-08 23:54:17+0200] > Dear list, > > I have a Parsec parser that fails and gives the following error message: > > *Main> parseFromFile textgridfile testFile > Left > "/Users/frkkan96/Documents/src/ume/umecore/testing/testdata/testdata.TextGrid" > (line 35, column 5): > unexpected "t" > expecting "intervals [" > > Now, this is perfectly understandable, but line 35, col 5 in the file being > parsed looks like the supplies image - there is no 't' there. > > Any ideas on what is going on? > > The parser I am using is: > > data VariableLine = VariableLine String String deriving Show > data TierType = IntervalTier | PointTier deriving Show > > data Tier = Tier String deriving Show > data LabelFile = LabelFile Double Double deriving Show > > data Label = Label String TierType Double Double String deriving Show > > > haskelldef = makeTokenParser haskellDef > > > textgridfile :: Parser (LabelFile, [[Label]]) > textgridfile = do > h <- header > ll <- many1 tier > return $ (h,ll) > > header :: Parser LabelFile > header = do > string headTS1 > start <- try (float haskelldef) > <|> (fmap fromInteger $ integer haskelldef ) > string "xmax = " > end <- try (float haskelldef) > <|> (fmap fromInteger $ integer haskelldef ) > string "tiers? <exists> \n" > string "size = " > integer haskelldef > string "item []:" > whiteSpace haskelldef > return $ LabelFile start end > > tier :: Parser [Label] > tier = do > whiteSpace haskelldef > string "item [" > integer haskelldef > string "]:" > whiteSpace haskelldef > try (string "class = \"IntervalTier\"") > <|> string "class = \"TextTier\"" > whiteSpace haskelldef > string "name = " > char '"' > name <- many quotedChar > char '"' <?> "quote at end of cell" > whiteSpace haskelldef > string "xmin = " > try (float haskelldef) <|> (fmap fromInteger $ integer haskelldef ) > whiteSpace haskelldef > string "xmax = " > try (float haskelldef) <|> (fmap fromInteger $ integer haskelldef ) > string "intervals: size = " <|> string "points: size = " > integer haskelldef > whiteSpace haskelldef > labelList <- many1 (interval name) > return $ labelList > interval :: String -> Parser Label > interval tierName = do > whiteSpace haskelldef > string "intervals [" > integer haskelldef > string "]:" > whiteSpace haskelldef > string "xmin = " > start <- try (float haskelldef) > <|> (fmap fromInteger $ integer haskelldef ) > whiteSpace haskelldef > string "xmax = " > end <- try (float haskelldef) > <|> (fmap fromInteger $ integer haskelldef ) > whiteSpace haskelldef > string "text = " > char '"' > text <- many quotedChar > char '"' <?> "quote at end of cell" > return $ Label tierName IntervalTier start end text > > which fails on the attached input file. > > I can't see how 't' is found?? What am I doing wrong? > > /Fredrik > > > > -- > "Life is like a trumpet - if you don't put anything into it, you don't get > anything out of it." > _______________________________________________ > Haskell-Cafe mailing list > Haskell-Cafe@haskell.org > http://www.haskell.org/mailman/listinfo/haskell-cafe _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
