scmCloseInputPort  [_]           = return$ notInput    "close-input-port"
scmCloseInputPort  [_]           = return$ notInput    "close-input-port"
scmCloseInputPort  [_]           = return$ notInput    "close-input-port"