|
|
@@ -28,10 +28,9 @@ fromPathInput :: PathInput -> Text |
|
|
|
fromPathInput ( PathInput txt ) = txt |
|
|
|
|
|
|
|
validatePathInput :: Text -> Either PathInputError PathInput |
|
|
|
validatePathInput txt = |
|
|
|
if FP.isValid $ T.unpack txt |
|
|
|
then Right $ PathInput txt |
|
|
|
else Left PathInputError |
|
|
|
validatePathInput txt |
|
|
|
| FP.isValid $ T.unpack txt = Right $ PathInput txt |
|
|
|
| otherwise = Left PathInputError |
|
|
|
|
|
|
|
newtype ComponentName = ComponentName Text |
|
|
|
deriving ( Eq, Show ) |
|
|
|