기본 Attoparsec 구문 분석은 "Right []"만 반환합니다.

Question

저는 하스켈을 매우 신중하게 생각합니다. 연습을 위해지도 파일을 구문 분석하려고합니다. 내 코드가 컴파일되지만 잘못된 결과가 나옵니다. 내가 알기로는 "옳은 것"입니다.

내 코드는 here 튜토리얼과 매우 비슷하지만 필자는 필자의 필요에 맞게 작성했습니다. 이 (내가 여기에 공간을 절약하기 위해 라인의 대부분을 제거)처럼

내 파일은 같습니다

#test map 2 
0,0:1; 
1,0:1; 
2,0:1; 
3,0:1; 

내 코드 : 도움을

import Data.Word 
import Data.Time 
import Data.Attoparsec.Char8 
import Control.Applicative 
import qualified Data.ByteString as B 

-- Types -- 

data Tile = Tile Int Int Int deriving Show 

data MapLine = 
    MapLine { tile :: Tile } deriving Show 

-- Parsing -- 

parseTile :: Parser Tile 
parseTile = do 
    x <- decimal 
    char ',' 
    y <- decimal 
    char ':' 
    t <- decimal 
    char ';' 
    return $ Tile x y t 

mapLineParser :: Parser MapLine 
mapLineParser = do 
    t <- parseTile 
    return $ MapLine t 

fileParser :: Parser [MapLine] 
fileParser = many $ mapLineParser <* endOfLine 

-- Main -- 
main :: IO() 
--main = B.readFile "map.hexmap" >>= print . parseOnly fileParser 
main = do 
    print "Parsing map..." 
    let x = B.readFile "map.hexmap" 
    x >>= print . parseOnly fileParser 
    print "Done." 

감사합니다.

Answer 1

파서는 첫 번째 줄에서 실패하기 전에 길이가 0 인 MapLines 목록을 "성공적으로 구문 분석"합니다. 해당 행을 제거하십시오 (파일에 BOM과 같이 시작 부분에 해석 할 수없는 바이트가 포함되어 있지 않은지 확인하십시오). 또는 결과를 무시하고 결합하는 #으로 시작하는 행에 대한 파서를 작성하십시오.