1{-# LANGUAGE TemplateHaskell #-} 2{-# LANGUAGE TypeApplications #-} 3 4staticKey name = [| sing @ $(symFQN name) |] 5