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
    }