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 |