addDisc :: Connection 
        -> String               -- ^ Disc ID
        -> String               -- ^ Description
        -> IO ()
addDisc conn id descrip = handleSqlError $
    execute conn $ "INSERT INTO midiscs VALUES (" ++
            toSqlValue id ++ ", " ++ toSqlValue descrip ++ ")"
addDisc :: Connection 
        -> String               -- ^ Disc ID
        -> String               -- ^ Description
        -> IO ()
addDisc conn id descrip = handleSqlError $
    execute conn $ "INSERT INTO midiscs VALUES (" ++
            toSqlValue id ++ ", " ++ toSqlValue descrip ++ ")"
addDisc conn id descrip = handleSqlError $
    execute conn $ "INSERT INTO midiscs VALUES (" ++
            toSqlValue id ++ ", " ++ toSqlValue descrip ++ ")"