From 67978b6da9092a37921da6351a82d46a74ca3515 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Fri, 4 Mar 2022 01:50:03 +0100
Subject: LOL

---
 src/Fun/Compiler.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/Fun/Compiler.hs')

diff --git a/src/Fun/Compiler.hs b/src/Fun/Compiler.hs
index a118103..6a4f8e1 100644
--- a/src/Fun/Compiler.hs
+++ b/src/Fun/Compiler.hs
@@ -40,17 +40,12 @@ check t = case checkTree t of
  where
   join = foldr (\(SyntaxError a) b -> a ++ if b == "" then b else "\n" ++ b) ""
 
--- TODO: Find higher-order infix
-f <~ e = case e of
-  Left  e -> Left e
-  Right e -> f e
-
 compile :: String -> IO ()
 compile path = do
   file <- try $ readFile path
   case file of
     Left  exception -> print (exception :: IOError)
-    Right file      -> case check <~ parse file of
+    Right file      -> case parse file >>= check of
       Left err -> do
         hPutStrLn stderr err
         exitWith (ExitFailure 1)
-- 
cgit v1.2.3