Skip to content

Instantly share code, notes, and snippets.

@Lazzlo2096
Last active August 2, 2018 14:04
Show Gist options
  • Save Lazzlo2096/b252ab2aee6c8a8e6b64d1180054dbf3 to your computer and use it in GitHub Desktop.
Save Lazzlo2096/b252ab2aee6c8a8e6b64d1180054dbf3 to your computer and use it in GitHub Desktop.
{-# LANGUAGE DeriveFunctor #-}
import Data.Functor
data SomeThingElse a = Some a | Thing
deriving (Functor, Show)
-- 5 <$ Just () == Just 5
-- 5 <$ Some () == Some 5
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment