module Main where

import T1
import T2 -- HERE: why two indentation points?
          -- KB: Because the import declaration may continue on another line.


function = return (Structure
                   { field = 123         -- HERE: why move to the leftmost column?
                   , field2 =1231        -- KB: That's a bug
                   })

function :: M X
            function = something something
function   -- HERE: TAB enter debugger: Lisp error: (parse-error . "Illegal token: =")
           -- KB: That's not valid haskell

function :: Int
function = do
  let x = 5
   let y = 7
  case x of
   _ -> return () -- HERE: TAB enter debugger: Lisp error: (parse-error . "Illegal token: case")
                  -- KB: not valid haskell either

function = (case x of
             Just x -> 0
             Nothing)                  -- HERE: why also same column as case?
                                       -- KB: because the expression can continue after the case


function = case ( x
                , )         -- HERE: why move to leftmost column?
           of               -- KB: that's a bug
            x -> x


function (_nm,hd) | hd = c
function (_nm,hd) = b        -- HERE: Tab cause debugger, underscore is important!
                             -- Strange, I have no problems there...


function = do
  nested $ do
    val :: String <- return "abc"
  z -- HERE: Why can't have same column as val?
    -- KB: That doesn't look like valid haskell?  Is it a syntax extension?

function = do
  (_ec) <- function

           return () -- HERE: can't have at the open parenthesis place, underscore is important
                     -- KB: I don't have any problems here...


function (x : xs) | c1==c2 =
                               return () -- HERE: selected points seem strange
                                         -- KB: seems fine, not sure what you would expect...


function :: (Monad m)
            => m ()      -- HERE: only indented proposed
         -> m ()         -- HERE: proposed both
                         -- KB: not really a bug, but it could be added as an option