{-# LANGUAGE RecordWildCards #-}

module Storage where

import Types

readScrap :: Integer -> Connection -> IO Scrap
readScrap ident c = do
  return Scrap { .. }