module Text.Subtitles.SRT.Datatypes
(
module Data.Attoparsec.Text,
module Data.Text,
Subtitles,
Line(..),
Range(..),
Time(..)
) where
import Data.List (intercalate)
import Data.Text (Text, unpack)
import Data.Attoparsec.Text (Parser)
data Time = Time
{ hour :: Int
, minutes :: Int
, seconds :: Int
, frame :: Int
} deriving (Eq, Ord, Show)
data Range = Range
{ from :: Time
, to :: Time
} deriving (Eq, Ord, Show)
data Line = Line
{ index :: Int
, range :: Range
, dialog :: Text
} deriving (Eq, Ord, Show)
type Subtitles = [Line]