| 1 |
|
-- |
| 2 |
|
-- This file is part of FactorCSS |
| 3 |
|
-- Licensed under the MIT License, |
| 4 |
|
-- http://www.opensource.org/licenses/mit-license |
| 5 |
|
-- Copyright 2004 James Bursa <james@semichrome.net> |
| 6 |
|
-- |
| 7 |
|
|
| 8 |
-- Datatypes for CSS |
-- Datatypes for CSS |
| 9 |
|
|
| 10 |
module CSS where |
module CSS where |
| 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 |