Simplify using firstJustM
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 22 May 2016 01:10:55 +0000 (02:10 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 22 May 2016 01:10:55 +0000 (02:10 +0100)
src/Oracles/Dependencies.hs

index d6cdbd3..a458b6d 100644 (file)
@@ -24,8 +24,7 @@ fileDependencies :: Context -> FilePath -> Action (FilePath, [FilePath])
 fileDependencies context obj = do
     let path = buildPath context -/- ".dependencies"
     -- If no dependencies found, try to drop the way suffix (for *.c sources).
-    deps <- listToMaybe . catMaybes <$>
-            mapM (askOracle . ObjDepsKey . (,) path) [obj, obj -<.> "o"]
+    deps <- firstJustM (askOracle . ObjDepsKey . (,) path) [obj, obj -<.> "o"]
     case deps of
         Nothing -> error $ "No dependencies found for file " ++ obj
         Just [] -> error $ "No source file found for file " ++ obj