New Haskell user

[c_stanto]

        
Can anyone tell me what is wrong with this code?
I have tried a lot of different thing and have tried to read up and figure
it out but I can't find anything.  If you can help I would greatly
appreciate it.


module Main(main) where

type Entry b = (String,b)
type Table = [Entry]

addToTable :: Entry -> Table -> Table
addToTable newEntry currentTable
                          = currentTable : newEntry


main =  do joe        <- getLine
           fred       <- getLine
           first  :: Entry
           first  = (joe,fred)
           second :: Table
           second = addToTable first second