Make `ghost'` and `ghost''` parameters patternable

[cleary]

Type: ghost' :: Time -> Pattern ValueMap -> Pattern ValueMap
Type: ghost'' :: Time -> (Pattern a -> Pattern a) -> Pattern a -> Pattern a

Both functions return an error when trying to pattern the Time parameter - it'd be nice if this were possible :)