Use info tables to get context

[coot]

Since GHC-9.4 we can use GHC.InfoProv.whereFrom to get source
information of terms. It is actually available in GHC-9.2 too, but we don't support the earlier version of it.

[coot]

This is the new output vs the default one which I got by running the test suite with -finfo-table-map -fdistinct-constructor-tables:

            176 ┃       Hedgehog.diff isNF compareInfo (modelUnexpected [] m)
                ┃       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                ┃       │ ━━━ Failed (- lhs) (+ rhs) ━━━
                ┃       │   Just
                ┃       │ -   ThunkInfo
                ┃       │ -     { thunkContext =
                ┃       │ -         [ "fromModel :: Int @ test/Test/NoThunks/Class.hs:195:53-84" ]
                ┃       │ -     }
                ┃       │ +   [ "Int" ]

[coot]

I modified the output to:

            179 ┃       Hedgehog.diff isNF compareInfo (modelUnexpected [] m)
                ┃       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                ┃       │ ━━━ Failed (- lhs) (+ rhs) ━━━
                ┃       │   Just
                ┃       │ -   ThunkInfo
                ┃       │ -     { thunkInfo =
                ┃       │ -         Right "fromModel :: Int @ test/Test/NoThunks/Class.hs:198:53-84"
                ┃       │ -     }
                ┃       │ +   [ "Int" , "field2" , "Record" ]

e.g. only show the location of the thunk itself rather than all the indirections. See #47.