questionparser.hs

module Stuff where

import Control.Monad (void)
import qualified Data.Text as T
import Text.Trifecta
import Text.Parser.Char
import Text.Parser.Expression
import Text.Parser.Combinators

data AnswerLetter = A | B | C | D deriving (Show, Eq, Read)

type Answers = [(AnswerLetter, String)]

data Question =
  Question { identifier :: String
           , answer :: AnswerLetter
           , question :: String
           , answers :: Answers
           } deriving (Show, Eq)

q :: (Monad m, CharParsing m) => m Question
q = do
  ident <- count 5 anyChar
  space
  char '('
  ans <- (\x -> read [x]) <$> oneOf "ABCD"
  char ')'
  manyTill anyChar (try newline)
  ques <- manyTill anyChar (try newline)
  ansA <- drop 3 <$> manyTill anyChar (try newline)
  ansB <- drop 3 <$> manyTill anyChar (try newline)
  ansC <- drop 3 <$> manyTill anyChar (try newline)
  ansD <- drop 3 <$> manyTill anyChar (try newline)
  choice [eof, void (string "--\n")]
  return (Question ident ans ques [(A, ansA), (B, ansB), (C, ansC), (D, ansD)])