hindent demo

sample.hs

myFunction :: [String] -> IO ()
myFunction args=
  do
    let val=fmap (+3)$fmap length args
    blah<-readFile "foo.txt"
    let myNewList=[blah,
                  mconcat(fmap show val ) ,"hello"]
    print myNewList

-- Formatted to
myFunction :: [String] -> IO ()
myFunction args = do
  let val = fmap (+ 3) $fmap length args
  blah <- readFile "foo.txt"
  let myNewList = [blah, mconcat (fmap show val), "hello"]
  print myNewList