getUsage :: [SearchOption] -> String
getUsage searchOptions =
  "Usage:\n hssearch [options] -s <searchpattern> <startpath>\n\nOptions:\n" ++
  searchOptionsToString searchOptions
getUsage :: [SearchOption] -> String
getUsage searchOptions =
  "Usage:\n hssearch [options] -s <searchpattern> <startpath>\n\nOptions:\n" ++
  searchOptionsToString searchOptions
getUsage searchOptions =
  "Usage:\n hssearch [options] -s <searchpattern> <startpath>\n\nOptions:\n" ++
  searchOptionsToString searchOptions