summaryrefslogtreecommitdiff
path: root/Biz/Namespace.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2022-07-25 10:25:51 -0400
committerBen Sima <ben@bsima.me>2022-07-25 10:29:10 -0400
commit95df71e6ce9ec3887f7e88accda7c9b29c538d86 (patch)
treef9b98a5f3462f0970359d8e5e342b7865eb04d6a /Biz/Namespace.hs
parent8e25ac2c4f606f3a82e079e0c4efa662b6c4e442 (diff)
Add basic support for building C code
Diffstat (limited to 'Biz/Namespace.hs')
-rw-r--r--Biz/Namespace.hs6
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"