Style.

damianfral · Jun 10, 2024 · 5afb277 · 5afb277
1 parent a2a58af
commit 5afb277
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 7 deletions.
diff --git a/benchmark/Main.hs b/benchmark/Main.hs
@@ -25,11 +25,10 @@ data Program = Program
   }
 
 parseBS :: ByteString -> IO BFProgram
-parseBS =
-  either (throwIO . userError . show) pure
-    . parseBF
-    . unpack
-    . decodeUtf8With lenientDecode
+parseBS = throwIfLeft . parseBF . unpack . decodeUtf8With lenientDecode
+  where
+    throwIfLeft (Left e) = throwIO . userError . show $ e
+    throwIfLeft (Right v) = pure v
 
 brainfuckFiles :: [(FilePath, ByteString)]
 brainfuckFiles = filter isBrainfuckFile files

diff --git a/src/Language/BrainHask/Optimizer.hs b/src/Language/BrainHask/Optimizer.hs
@@ -1,6 +1,5 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE OverloadedStrings #-}
 
 module Language.BrainHask.Optimizer (optimize, OptimizationLevel (..)) where
 

diff --git a/src/Language/BrainHask/Preprocessor.hs b/src/Language/BrainHask/Preprocessor.hs
@@ -1,8 +1,8 @@
 module Language.BrainHask.Preprocessor (preprocess) where
 
+import Data.Functor (($>))
 import Data.Transformer
 import Language.BrainHask.Types
-import Data.Functor (($>))
 
 type Preprocessor a = Transformer BFOp (ILOp Int a)