1 2 3 4 5 6 7 8 9
{-# LANGUAGE RecordWildCards #-} module Storage where import Types readScrap :: Integer -> Connection -> IO Scrap readScrap ident c = do return Scrap { .. }