wasp-lang/wasp
1
1
Fork 0
mirror of https://github.com/wasp-lang/wasp.git synced 2024-11-24 03:35:17 +03:00
Code Issues Projects Releases Wiki Activity

fixed ormolu

Browse Source
This commit is contained in:
Martin Sosic 2021-09-21 21:16:34 +02:00
parent 70fc06ee15
commit 84f32b0e67
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
waspc/src/Analyzer/StdTypeDefinitions.hs
View File

@ -10,21 +10,22 @@ where
import Analyzer.Evaluator.TH (makeDeclType, makeEnumType) import Analyzer.Evaluator.TH (makeDeclType, makeEnumType)
import qualified Analyzer.TypeDefinitions as TD 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. -- | 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 -- 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. -- easier to modify and maintain the Wasp compiler/language.
stdTypes :: TD.TypeDefinitions stdTypes :: TD.TypeDefinitions
stdTypes = stdTypes =
{- ORMOLU_DISABLE -}
TD.addEnumType @AuthMethod $ TD.addEnumType @AuthMethod $
TD.addDeclType @App $ TD.addDeclType @App $
TD.empty 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 -- 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. -- TH functions can automatically create appropriate instances for them.
---------- Test/mock types ------------
--------- MOCK TYPES ----------
data AuthMethod = EmailAndPassword deriving (Show, Eq) data AuthMethod = EmailAndPassword deriving (Show, Eq)
data App = App {title :: String, authMethod :: AuthMethod} 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 makeEnumType ''AuthMethod
makeDeclType ''App makeDeclType ''App
---------------------------------------
-------- / MOCK TYPES ---------