fixup! Add Workspace name validation (#834)

change-metrics · Oct 2, 2023 · 52e4289 · 52e4289
1 parent a63c6a0
commit 52e4289
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Monocle/Config.hs b/src/Monocle/Config.hs
@@ -497,7 +497,7 @@ getIdentByAliasFromIdents alias idents' = case find isMatched idents' of
 -- >>> mkIndexName ".."
 -- Left "Is (.|..)"
 -- >>> mkIndexName "hello-world_42"
--- Right (IndexName "hello-world_42")
+-- Right (IndexName {getIndexName = "hello-world_42"})
 mkIndexName :: Text -> Either Text IndexName
 mkIndexName name = do
   let check explanation p = if p then Right () else Left explanation