What if instead we re-framed this as a "top-level where clause", like this:

main :: IO ()
main = putStrLn ("Hi" <> "There")

other-function :: IO ()
other-function = putStrLn ("I can " <> "also use it")

-- NOTE: 0 indent!

where
    (<>) :: String -> String -> String
    (<>) = (++)