| 119 |
|
|
| 120 |
show_simple_selector :: SimpleSelector -> String |
show_simple_selector :: SimpleSelector -> String |
| 121 |
show_simple_selector (Just s, ds) = s ++ (concat . map show_detail) ds |
show_simple_selector (Just s, ds) = s ++ (concat . map show_detail) ds |
| 122 |
|
show_simple_selector (Nothing, []) = "*" |
| 123 |
show_simple_selector (Nothing, ds) = (concat . map show_detail) ds |
show_simple_selector (Nothing, ds) = (concat . map show_detail) ds |
| 124 |
|
|
| 125 |
show_detail :: Detail -> String |
show_detail :: Detail -> String |