- case (l, g) of
- (Just l, Just g) -> return . Just $ getProjectConfig g l
- (Just _, Nothing) -> fail "Busted global config"
- (Nothing, Just _) -> fail "Busted local config"
- _ -> fail "All configs are busted"
+ return $ case (l, g) of
+ (Just l, Just g) -> Right $ getProjectConfig g l
+ (Just _, Nothing) -> Left "Busted global config"
+ (Nothing, Just _) -> Left "Busted local config"
+ _ -> Left "All configs are busted"