Eρώτηση στην haskell

[iNfErNeR]

Έχω 1 πρόβλημα με το interface που θέλω να φτιάξω για μια άσκηση πάνω σε Haskell. Ξέρει κάποιος να μου πει πως γίνετε τις τιμές που έχει πάρει ο compiler από το getLine και getInt να τις περιλάβω στην τελευταία μου γραμμή στην οποια θέλω να τρέξω ένα function.

 

Το addMusic είναι ένα function που πρόσθετη 1 μουσικό κομμάτι του χρηστη στην ήδη υπάρχον database ("myDatabase ") με μορφή (Music track composer year[])

 

>interface :: [Music] -> IO ()
interface db = do putStrLn ("Please an option: \n1 - option1 \2 - option2 \n0 - Exit " )
            option <- getLine
            case option of
            	1 -> do putStr " Enter track"
            	        track <- getLine
            	        putStr "Enter composer"
            	        composer <- getLine
            	        putStr "Enter year"
            	        year <- getInt
            	        addMusic myDatabase (Music track composer year[])

 

Έτσι όπως είναι μου βγάζει error στη τελευταία γραμμή