-- -*- mode: haskell -*-
{-# LANGUAGE TemplateHaskell #-}

module Inter.ID where

import Reader
import ToDoc

data ID = ID
          { matrikel :: String
          , passwort :: String
          , problem  :: String
          , aufgabe  :: String
          , version  :: String
          }

$(derives [makeReader, makeToDoc] [''ID])

instance Show ID where
    show = render . toDoc

instance Read ID where
    readsPrec = parsec_readsPrec

