{-# LANGUAGE OverloadedStrings  #-}
module Sound.MusicDirTrans.Type
        ( AudioTrack(..)
        , Metadata(..)
        , ArtistPath(..)
        , newPath
        )
where


import           Sound.HTagLib                  ( Artist
                                                , Album
                                                , Year
                                                , FileType
                                                )

data AudioTrack = AudioTrack
  { currentPath :: FilePath }
  deriving (Show, Eq)

data Metadata = Metadata
  { mArtist :: Artist
  , mAlbum :: Album
  , mYear :: Maybe Year }
  deriving (Show, Eq)

data ArtistPath = ArtistPath
  { rootPath :: FilePath
  , parentPath :: FilePath
  , childPath :: FilePath }
  deriving (Show, Eq)

newPath :: ArtistPath -> FilePath
newPath (ArtistPath _ p c) = p ++ "/" ++ c ++ "/"