srcloc for bangs

Main.hs

{-# LANGUAGE BangPatterns #-}

module Main where

import Language.Haskell.Exts
import Language.Haskell.Exts.Syntax
import Data.Generics.Uniplate.DataOnly

main :: IO ()
main = do
  ParseOk s <- parseFile "/Users/rem/exp/app/Main.hs"
  let !locs = [ l | PBangPat l p <- universeBi s] :: [SrcSpanInfo]
  print locs

Nvm you don't need to -1, the first column is exactly where the bang is.