Skip to content

Instantly share code, notes, and snippets.

@staticshock

staticshock/sometype.hs

Created July 12, 2012 16:08
Show Gist options
  • Save staticshock/3099074 to your computer and use it in GitHub Desktop.
Save staticshock/3099074 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sometype.hs
data Array a b = Array a b -- lengthType, entryType
instance (Show a, Show b) => Show (Array a b) where
show (Array lengthType entryType) = show lengthType ++ " * " ++ show entryType
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment