A.hs

-- ghc-8.6.5 -O0 -ddump-ds -ddump-simpl -ddump-to-file -fexpose-all-unfoldings -dsuppress-uniques \
--   -fforce-recomp -dsuppress-idinfo A.hs

module A where

import qualified Data.Map as M

data Foo = A Int
         | B Foo Int
  deriving Eq


some_fun :: M.Map Int a -> Maybe a
some_fun = M.lookup 0
{-# INLINE some_fun #-}

other_fun :: Num a => a -> a
other_fun x = x + x
{-# INLINE other_fun #-}

foo :: Integer
foo = other_fun 10