From cd46eaf57fac4e452f11747a1d420f901c630552 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Wed, 5 Nov 2025 06:35:47 +0100 Subject: minor reformatting test --- lambda-calcul/haskell/src/Minilang/Server.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lambda-calcul/haskell/src/Minilang/Server.hs b/lambda-calcul/haskell/src/Minilang/Server.hs index 8dc8c17..ea66e1e 100644 --- a/lambda-calcul/haskell/src/Minilang/Server.hs +++ b/lambda-calcul/haskell/src/Minilang/Server.hs @@ -1,6 +1,6 @@ -{-# LANGUAGE TypeApplications #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TypeApplications #-} -- | An HTTP server providing a basic REPL and text editor to work -- collaboratively on Minilang code. @@ -11,15 +11,16 @@ import Control.Concurrent.STM.TVar import Data.Aeson ( Value, decode, + eitherDecodeFileStrict, object, - (.=), eitherDecodeFileStrict, + (.=), ) import Data.ByteString.Lazy (fromStrict) import Data.Data (Proxy (..)) import Data.Default import Data.Text (Text) -import Minilang.API (LambdaAPI, Challenge, defaultChallenges) -import Minilang.App (Env (..), lambdaApp, runApp, makeEnv) +import Minilang.API (Challenge, LambdaAPI, defaultChallenges) +import Minilang.App (Env (..), lambdaApp, makeEnv, runApp) import Minilang.Log import Minilang.REPL.Net import Network.Wai @@ -30,7 +31,6 @@ import Servant (hoistServer) import Servant.Server (serve) import System.Log.FastLogger (fromLogStr) import System.Random (newStdGen) -import Control.Exception (IOException, try) data Server = Server { -- | If the server is running, this will contain the underlying -- cgit v1.3.1