diff options
Diffstat (limited to 'Biz/Namespace.hs')
| -rw-r--r-- | Biz/Namespace.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Biz/Namespace.hs b/Biz/Namespace.hs index 0fd861f..6fb40f7 100644 --- a/Biz/Namespace.hs +++ b/Biz/Namespace.hs @@ -24,7 +24,8 @@ import qualified Data.List.Split as List import qualified Text.Regex.Applicative as Regex data Ext - = Css + = C + | Css | Hs | Json | Keys @@ -89,7 +90,8 @@ rePath = Regex.many (name <* Regex.string "/" <|> name) reExt :: Regex.RE Char Ext reExt = - Css <$ Regex.string "css" + C <$ Regex.string "c" + <|> Css <$ Regex.string "css" <|> Hs <$ Regex.string "hs" <|> Json <$ Regex.string "json" <|> Keys <$ Regex.string "pub" |