getTargets :: Options -> [String] --oh no, what have I done
getTargets opts = case (getFlag "--" opts) of
                    (Just targets) -> case value targets of
                                 (ListOpt targetList) -> targetList
                                 _ -> []
                    _ -> []
getTargets :: Options -> [String]
getTargets opts = case (getFlag "--" opts) of
                    (Just targets) -> case value targets of
                                 (ListOpt targetList) -> targetList
                                 _ -> []
                    _ -> []
getTargets opts = case (getFlag "--" opts) of
                    (Just targets) -> case value targets of
                                 (ListOpt targetList) -> targetList
                                 _ -> []
                    _ -> []