diff options
Diffstat (limited to 'Omni')
| -rw-r--r-- | Omni/Bild.hs | 2 | ||||
| -rw-r--r-- | Omni/Namespace.hs | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/Omni/Bild.hs b/Omni/Bild.hs index 1ebeb05..fcf959f 100644 --- a/Omni/Bild.hs +++ b/Omni/Bild.hs @@ -503,6 +503,7 @@ instance ToNixFlag Builder where isBuildableNs :: Namespace -> Bool isBuildableNs = \case (Namespace _ Namespace.C) -> True + (Namespace _ Namespace.Ctags) -> False (Namespace _ Namespace.Css) -> False (Namespace _ Namespace.Hs) -> True (Namespace _ Namespace.Html) -> False @@ -584,6 +585,7 @@ analyzeOne namespace@(Namespace parts ext) = do let defaultOut = isExe ?: (Just <| Namespace.dotSeparated parts, Nothing) case ext of Namespace.Css -> pure Nothing + Namespace.Ctags -> pure Nothing Namespace.Json -> pure Nothing Namespace.Keys -> pure Nothing Namespace.Md -> pure Nothing diff --git a/Omni/Namespace.hs b/Omni/Namespace.hs index a0f8a8e..ddbd1f1 100644 --- a/Omni/Namespace.hs +++ b/Omni/Namespace.hs @@ -33,6 +33,7 @@ import qualified Text.Regex.Applicative as Regex data Ext = C + | Ctags | Css | Hs | Html @@ -69,6 +70,7 @@ toExt :: Ext -> String toExt = ("." <>) <. \case C -> "c" + Ctags -> "ctags" Css -> "css" Hs -> "hs" Html -> "html" @@ -130,7 +132,7 @@ name = Regex.many (Regex.psym Char.isUpper) <> ( Regex.many <| Regex.psym - <| \c -> Char.isAlphaNum c || c == '_' || c == '-' + <| \c -> Char.isAlphaNum c || c == '_' || c == '-' || c == '.' ) rePath :: Regex.RE Char [String] @@ -140,6 +142,8 @@ reExt :: Regex.RE Char Ext reExt = C <$ Regex.string "c" + <|> Ctags + <$ Regex.string "ctags" <|> Css <$ Regex.string "css" <|> Hs |