HASKELL - Change Type

Question

I need to create a function f:: Log->[String] that does that (((o, i ,d),s) = [(o, i ,d)]

type Log = (Plate, [String])

type Plate = (Pin, Pin, Pin) type Pin = (Char, Int)

Answer 1

g :: Log -> [String]
g (plate, _) = [show plate]