• Adam Sandberg Eriksson's avatar
    slightly better named cost-centres for simple pattern bindings #17006 · 588acb99
    Adam Sandberg Eriksson authored
    ```
    main = do
      print $ g [1..100] a
      where g xs x   = map (`mod` x) xs
            a :: Int = 324
    ```
    
    The above program previously attributed the cost of computing 324 to a cost
    centre named `(...)`, with this change the cost is attributed to `a` instead.
    
    This change only affects simple pattern bindings (decorated variables: type
    signatures, parens, ~ annotations and ! annotations).
    588acb99
Pat.hs 32.1 KB