tito fighting against the Haskell lexer

coso.hs

module Coso where

testOk1 = [1, 2, 3, 4]

testOk2 =
    [ 1
    , 2
    , 3
    ]

testOk3 = [ 1, 2
    , 3 ]

testOk4 = do
    let l = [1, 2, 3, 4]
    pure l

testOk5 = do
    pure l
  where
    l = [1, 2,
        3, 4]

testOk6 = do
    pure l
  where
    l =
        [1, 2, 3, 4]

testSux1 = do
    let l =
        [1, 2, 3, 4]
    pure l

testSux2 = do
    let l = [1, 2,
        3, 4]
    pure l