doType _ s [Executable fp] = oPutStrLn (s++" is "++fp) >> return True
doType _ s [Executable fp] = oPutStrLn (s++" is "++fp) >> return True
doType _ s [Executable fp] = oPutStrLn (s++" is "++fp) >> return True