diff options
Diffstat (limited to 'Omni/Namespace.hs')
| -rw-r--r-- | Omni/Namespace.hs | 6 |
1 files changed, 5 insertions, 1 deletions
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 |