2016-07-07 9 views

答えて

1

parseCSV :: Parser CSV 
parseCSV = return $ CSV [[""]] 

この

は私がparseCSV機能

parseCSV = Just (CSV [[""]]) 

を実装を開始するとき、私はこのエラーを取得する

import Test.HUnit (runTestTT,Test(TestLabel,TestList),(~?=)) 
import qualified Text.Parsec as P (char,runP,noneOf,many,(<|>),eof) 
import Text.ParserCombinators.Parsec 
import Text.Parsec.String 
import Text.Parsec.Char 
import Text.PrettyPrint.HughesPJ 
import Data.Maybe 
import Data.List.Split 

newtype CSV = CSV [Row] deriving (Show,Eq) 
type Row = [String] 

parseCSV :: Parser CSV 
parseCSV = error "not done yet" 

runParsec :: Parser a -> String -> Maybe a 
runParsec parser input = case P.runP parser() "" input of 
    Left _ -> Nothing 
    Right a -> Just a 

を持っているコードです

このエラーは、すべてparseCSVのタイプがParser CSV(タイプシグニチャ)である必要がありますが、Just (CSV [[""]])のタイプはMaybe CSVである必要があります。

+0

それは働いた!私は数分で正解とマークします、ありがとう! –