LOL

1 files changed, 1 insertions, 6 deletions

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)