eternity-0.1: library/Eternity/Attoparsec/FileNames.hs

module Eternity.Attoparsec.FileNames
where

import Eternity.Prelude
import Data.Attoparsec.Text


eventsFileName :: Parser Int
eventsFileName =
  do
    index <- decimal
    string ".events"
    return index