Snippet saved on:
12/18/2024, 1:18:04 PM (raw)
12/18/2024, 1:18:04 PM (raw)
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
LANGUAGE
importqualifiedData.Text.Internal
importqualifiedGHC.Generics
importGHC.Generics
importqualifiedPreludeasGHC.Classes
importControl.Applicative
importData.Foldable
importData.Monoid
importData.Functor
importData.Traversable
importPrelude(.),putStr
importData.Functor.Const
importData.Functor.Identity
newtype Literal a = Literal {getLiteral :: (((Boolean GHC.Generics.:+: (Float GHC.Generics.:+: Heredoc)) GHC.Generics.:+: (Integer GHC.Generics.:+: (Null GHC.Generics.:+: String))) a)}
-- deriving newtype (AST.Unmarshal.SymbolMatching)
deriving stock (GHC.Generics.Generic, GHC.Generics.Generic1)
GHC output
Errors
Output