{- | Deletes all file records on the disc. -}
wipeFiles :: Connection
          -> String             -- ^ Disc ID
          -> IO ()
wipeFiles conn discid = handleSqlError $
    execute conn $ "DELETE FROM mifiles WHERE discid = " ++ toSqlValue discid
wipeFiles :: Connection
          -> String             -- ^ Disc ID
          -> IO ()
wipeFiles conn discid = handleSqlError $
    execute conn $ "DELETE FROM mifiles WHERE discid = " ++ toSqlValue discid
wipeFiles conn discid = handleSqlError $
    execute conn $ "DELETE FROM mifiles WHERE discid = " ++ toSqlValue discid