Initial commit v0.1.0HEADmaster

1 files changed, 35 insertions, 0 deletions

diff --git a/src/Sound/MusicDirTrans/Type.hs b/src/Sound/MusicDirTrans/Type.hs
new file mode 100755
index 0000000..463cd96
--- /dev/null
+++ b/src/Sound/MusicDirTrans/Type.hs
@@ -0,0 +1,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 ++ "/"
+