hindent-4.5.0: test/johan-tibell/expected/6.exp

f :: Int
f x
    | x <- Just x
    , x <- Just x = 
        case x of
            Just x -> e
    | otherwise = do
        e
  where
    x = y

g x = case x of
    a -> x
  where
    foo = case x of
        _ -> do
            launchMissiles
      where
        y = 2