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
    }