pgdl-6.3: src/Video.hs

{-# LANGUAGE OverloadedStrings #-}

module Video where

import qualified Data.Text as T

data Video = Video { vidName :: T.Text
                   , vidLink :: T.Text
                   , vidSize :: T.Text
                   , vidDate :: T.Text
                   }

instance Eq Video where
    x == y = vidName x == vidName y