From 95df71e6ce9ec3887f7e88accda7c9b29c538d86 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 25 Jul 2022 10:25:51 -0400 Subject: Add basic support for building C code --- Biz/Namespace.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Biz/Namespace.hs') 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" -- cgit v1.2.3