How to make Elm ports slightly more simple

PortTypes.elm

-- Normal ports

port outgoingString : String -> Cmd msg
port incomingString : (String -> msg) -> Sub msg


-- Ports with type aliases

type alias OutgoingPort a =
    a -> Cmd msg
type alias IncomingPort a =
    (a -> msg) -> Sub msg

port outgoingString : OutgoingPort String
port incomingString : IncomingPort String


-- btw this has not been tested yet