module Main where

-- | Something.
data Foo = Foo {fooX :: Int, fooY :: Int}
    deriving (Eq, Show)