server/src/Thermoprint/Server/Database/Instances.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeSynonymInstances       #-}
{-# LANGUAGE FlexibleInstances          #-}

module Thermoprint.Server.Database.Instances where

import Thermoprint.API (Printout, JobStatus, PrintingError)

import Database.Persist.TH

derivePersistFieldJSON "Printout"