MusicApp.hs

data Page
  = Home String -- name
  | MusicLibrary -- RecentlyPlayed, Discover
  | SongPlaying String String -- music, artist
  deriving Show

data MusicLibrary
  = RecentlyPlayed  -- [String] a localList
  | Discover -- [String] a default list
  deriving Show


greetings name = do 
  "Hello, " ++ name

buildApp page = case page of {
  Home name -> greetings name; 
  MusicLibrary -> "Building page...";
  SongPlaying name artist -> "Playing: " ++ name ++ " - " ++ artist;
}

runApp = do 
  let page = Home "Maisa"
  putStrLn (buildApp page)

-- TODO: Fazer o app rodar!

main :: IO ()
main = do
  runApp