Skip to content

Instantly share code, notes, and snippets.

@amonshiz

amonshiz/AssignmentGrade.hs

Created December 31, 2014 04:42
Show Gist options
  • Save amonshiz/b39b07e3a974c382c94f to your computer and use it in GitHub Desktop.
Save amonshiz/b39b07e3a974c382c94f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
AssignmentGrade.hs
data AssignmentGrade = AssignmentGrade { score :: Int, grade :: Char } deriving(Show, Read, Eq)
instance Ord AssignmentGrade where
compare ag1 ag2 = compare (score ag1) (score ag2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment