From 84f32b0e67566a34179a462957b1416b7513dc2d Mon Sep 17 00:00:00 2001 From: Martin Sosic Date: Tue, 21 Sep 2021 21:16:34 +0200 Subject: [PATCH] fixed ormolu --- waspc/src/Analyzer/StdTypeDefinitions.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/waspc/src/Analyzer/StdTypeDefinitions.hs b/waspc/src/Analyzer/StdTypeDefinitions.hs index 7ff1bc706..36c766805 100644 --- a/waspc/src/Analyzer/StdTypeDefinitions.hs +++ b/waspc/src/Analyzer/StdTypeDefinitions.hs @@ -10,21 +10,22 @@ where import Analyzer.Evaluator.TH (makeDeclType, makeEnumType) import qualified Analyzer.TypeDefinitions as TD +{- ORMOLU_DISABLE -} -- | Collection of domain types that are standard for Wasp, that define what the Wasp language looks like. -- These are injected this way instead of hardcoding them into the Analyzer in order to make it -- easier to modify and maintain the Wasp compiler/language. stdTypes :: TD.TypeDefinitions stdTypes = - {- ORMOLU_DISABLE -} TD.addEnumType @AuthMethod $ TD.addDeclType @App $ TD.empty - {- ORMOLU_ENABLE -} +{- ORMOLU_ENABLE -} --- TODO: Remove these from here and instead use types from the Wasp module (Wasp AST). +-- | TODO: Remove these types from here and instead use types from the Wasp module (Wasp AST). -- For that we will need to make sure that those types are correctly shaped so that our -- TH functions can automatically create appropriate instances for them. ----------- Test/mock types ------------ + +--------- MOCK TYPES ---------- data AuthMethod = EmailAndPassword deriving (Show, Eq) data App = App {title :: String, authMethod :: AuthMethod} deriving (Show, Eq) @@ -32,5 +33,5 @@ data App = App {title :: String, authMethod :: AuthMethod} deriving (Show, Eq) makeEnumType ''AuthMethod makeDeclType ''App ---------------------------------------- +-------- / MOCK TYPES ---------