on c2b32da help sign in
12 lines 302 B history raw
1-- | Something.
3data Foo = Foo
4 { fooX :: Int -- ^ X
5 , fooY :: Int -- ^ Y
6 , fooBar, fooBaz :: NonEmpty (Identity Bool) -- ^ BarBaz
7 , fooGag, fooGog :: NonEmpty (Indentity
8 Bool)
9 -- ^ GagGog
10 , fooFoo
11 , barBar :: Int -- ^ Huh!
12 } deriving (Eq, Show)