more RawFilePath conversion
This commit was sponsored by Luke Shumaker on Patreon.
This commit is contained in:
parent
b724236b35
commit
55400a03d3
22 changed files with 91 additions and 79 deletions
|
@ -165,8 +165,8 @@ parseJSONInput i = case eitherDecode (BU.fromString i) of
|
|||
(Just k, _) -> return $
|
||||
Right (Right k, m)
|
||||
(Nothing, Just f) -> do
|
||||
f' <- liftIO $ relPathCwdToFile f
|
||||
return $ Right (Left (toRawFilePath f'), m)
|
||||
f' <- liftIO $ relPathCwdToFile (toRawFilePath f)
|
||||
return $ Right (Left f', m)
|
||||
(Nothing, Nothing) -> return $
|
||||
Left "JSON input is missing either file or key"
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue