module Foo (
    asdf,
    bar,
) where

data Test
    = Test1
        { a :: Int
        , b :: Int
        }
    | Test2 Bool

x :: IO Int
x = do
    putStrLn "asdf"
    let result =
            y + 10
    return result
    where
        y = 1

class Foo a where
    foo :: a -> Int
