17 lines
369 B
Haskell
17 lines
369 B
Haskell
-- 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" |