From d1d0d03e45b2248ee6d0762374d03a74caf51fe9 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Fri, 29 Sep 2017 21:45:48 +0300
Subject: [PATCH] Refactor

---
 Shakefile.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/Shakefile.hs b/Shakefile.hs
index 29c963d..5045d13 100644
--- a/Shakefile.hs
+++ b/Shakefile.hs
@@ -181,13 +181,12 @@ main = do
   ocamlOracleN <- addOracle $ \(OcamlCmdLineOracleN s) ->
     return $ ocamlKey ocamlopt ocamlflagstbl s
 
-  ocamlOrdOracle <- addOracle $ \(OcamlOrdOracle s) ->
-    unless (takeExtension s == ".cmi") $
-      liftIO $ modifyMVar_ depl $ \l -> return $ s:l
+  let ordoracle d s =
+        unless (takeExtension s == ".cmi") $
+          liftIO $ modifyMVar_ d $ \l -> return $ s:l
 
-  ocamlOrdOracleN <- addOracle $ \(OcamlOrdOracleN s) ->
-    unless (takeExtension s == ".cmi") $
-      liftIO $ modifyMVar_ depln $ \l -> return $ s:l
+  ocamlOrdOracle <- addOracle $ \(OcamlOrdOracle s) -> ordoracle depl s
+  ocamlOrdOracleN <- addOracle $ \(OcamlOrdOracleN s) -> ordoracle depln s
 
   cOracle <- addOracle $ \(CCmdLineOracle s) -> return $ cKey envcflags s
 
-- 
2.11.4.GIT