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