src/Sound/MusicDirTrans/Type.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

{-# 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 ++ "/"