module Parser
  ( module Export
  , decimal
  , ueventFile
  ) where

import qualified Text.Megaparsec.Lexer as Lexer
import Text.Megaparsec as Export (parse, parseMaybe)
import Text.Megaparsec.String as Export (Parser)

import Data.Map (Map); import qualified Data.Map as Map
import Text.Megaparsec


decimal :: Parser Integer
decimal = Lexer.decimal

ueventFile :: Parser (Map String String)
ueventFile =
    Map.fromList <$> some param

param :: Parser (String,String)
param = do
    k <- someTill anyChar (char '=')
    v <- someTill anyChar newline
    return (k,v)