Deriving a Control.Lens.Wrapped instance using Template Haskell

wrappedTH.hs

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}

import Control.Lens

data Foo a = Foo { unFoo :: (Int,a) } deriving Show

$(makeWrapped ''Foo)

main :: IO ()
main = putStrLn ""

-- *Main> view wrapped (5,'a') :: Foo Char
-- Foo {unFoo = (5,'a')}