{"body":"{-# LANGUAGE DeriveFunctor #-}\n{-# LANGUAGE DeriveGeneric #-}\n{-# LANGUAGE DerivingVia   #-}\n{-# LANGUAGE StrictData    #-}\n{-# LANGUAGE TypeOperators #-}\nmodule Language.Cimple.Annot\n    ( AnnotF (..)\n    ) where\n\nimport           Data.Fix                     (Fix, hoistFix)\nimport           Data.Functor.Classes         (Eq1, Read1, Show1)\nimport           Data.Functor.Classes.Generic (FunctorClassesDefault (..))\nimport           Data.Functor.Compose         (Compose (..))\nimport           GHC.Generics                 (Generic, Generic1)\n\ndata AnnotF attr a = Annot { attr :: attr, unAnnot :: a }\n    deriving (Functor, Generic, Generic1)\n    deriving (Show1, Read1, Eq1) via FunctorClassesDefault (AnnotF attr)\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/dwAsXj9Z","modified":1730816330,"id":"dwAsXj9Z","size":719,"lines":18,"own_paste":false,"theme":"","date":1730816330}