import Data.Attoparsec.Text.Lazy
import Data.Text.Lazy.Internal (Text)
import Data.Text.Lazy (pack)
data List a = Nil | Cons a (List a)
list :: Text
list = pack $ unlines
[ "0"
, "1"
我想在haskell中實現js解析器。但我堅持使用自動分號插入。我創建了test project來解決問題,但我無法弄清楚如何解決問題。 在我的測試項目計劃是一個表達式列表(一元或二元): data Program = Program [Expression]
data Expression
= UnaryExpression Number
| PlusExpression
這裏是我認爲不應該引起任何問題的代碼,但由於某種原因呢? program = expr8
<|> seqOfStmt
seqOfStmt =
do list <- (sepBy1 expr8 whiteSpace)
return $ if length list == 1 then head list else Seq list
我得到3個錯誤