-- This module only exists because of the GHC stage restriction.

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE DeriveGeneric #-}

module PasteType where

import Database.Persist.TH
import GHC.Generics
import Data.Aeson

data PasteType = PlainText deriving (Show, Read, Eq, Generic)

instance FromJSON PasteType
instance ToJSON PasteType

derivePersistField "PasteType"