@@ -24,6 +24,10 @@ class PathPiece s where
2424 fromPathPiece :: S.Text -> Maybe s
2525 toPathPiece :: s -> S.Text
2626
27+instance PathPiece () where
28+ fromPathPiece t = if t == "_" then Just () else Nothing
29+ toPathPiece () = "_"
30+
2731instance PathPiece String where
2832 fromPathPiece = Just . S.unpack
2933 toPathPiece = S.pack