diff options
Diffstat (limited to 'Biz/Namespace.hs')
| -rw-r--r-- | Biz/Namespace.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Biz/Namespace.hs b/Biz/Namespace.hs index 574a2fc..d3835c8 100644 --- a/Biz/Namespace.hs +++ b/Biz/Namespace.hs @@ -17,7 +17,7 @@ import qualified Data.Char as Char import qualified Data.List as List import qualified Text.Regex.Applicative as Regex -data Ext = Hs | Scm | Nix | Md | Css | Py | Sh | Key | Json | None +data Ext = Hs | Scm | Nix | Md | Css | Py | Sh | Keys | Json | None deriving (Eq, Show) data Namespace = Namespace [String] Ext @@ -38,7 +38,7 @@ match = Regex.match <| Namespace </ path <* Regex.sym '.' <*> ext <|> Css <$ Regex.string "css" <|> Py <$ Regex.string "py" <|> Sh <$ Regex.string "sh" - <|> Key <$ Regex.string "key" + <|> Keys <$ Regex.string "pub" <|> Json <$ Regex.string "json" fromPath :: String -> String -> Maybe Namespace |