servant/src/PrintOut.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{-# LANGUAGE TemplateHaskell      #-}
{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances    #-}
module PrintOut
       ( PrintOut
       ) where

import Thermoprint
import Thermoprint.Api
import Database.Persist.TH

type PrintOut = Block String

derivePersistFieldJSON "PrintOut"