import A.Long.Module.Name (With(many, many, many,  many, many), imports, and, exports, that, don't, fit, on, one, line, at, all)

import A.Long.Module.Name (With(many, many, many,  many, many), With(many, many, many,  many, many), With(many, many, many,  many, many), imports, and, exports, that, don't, fit, on, one, line, at, all)

f (Zee x) =
  -- Comment!
  startswith "No instance for (Show" msg && True

x = do
  -- hi
  return output { longLongLong = 3,  longLongLong = 3, longLongLong = 3, longLongLong = 3, longLongLong = 3, longLongLong = 3}

f x = f $ do
  -- hello
  f x

f x = f $
  -- hello
  f x

a =
  case x of
    z -> y -- what
    z -> y

class A be where
  x = y
  z = w

class A b where
  x = y
>
  z = w

data Widget = forall a. IHaskellWidget a => Widget a
  deriving Typeable

instance Monoid X where
    mempty = X
    X `mappend` X = X

a =
  let x = X { y = z, 
              -- FIXME
              z = z }
  in Z