11.exp

data A = B             -- ^ hi
       | C Int         -- ^ hi
       | D Float       -- ^ hi
       | E Float Float -- ^ hi

data A = B             -- ^ hi continuing the comment
       | C Int         -- ^ hi
       | D Float       -- ^ hi
       | E Float Float -- ^ hi continuing the comment

a =
  case x of
    Nothing        -> 2
    Just something -> 3

a =
  case x of
    Nothing -> do
      putStrLn "hi"
    Just something -> 3

a =
  case x of
    Nothing ->
      case y of
        1 -> 2
        3 -> 4
    Just something -> 3

a =
  case x of
    Nothing        -> 2
    Just x         -> 10
    Just something -> 3

a =
  case x of
    Nothing -> 2
    Just x -> 10
    Just something -> do
      putStrLn "hello"

data X =
       X
         { a :: Int    -- ^ hi
         , b :: String -- ^ hi
         }

data X =
       X
         { a :: Int    -- ^ hi
         , b :: String -- ^ hi continued
         }