From e65e1eaac335a4738abb9e8ee8da7a229f96c2c0 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 17 Oct 2015 21:23:45 +0200 Subject: Drafts --- servant/src/PrintOut.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 servant/src/PrintOut.hs (limited to 'servant/src/PrintOut.hs') diff --git a/servant/src/PrintOut.hs b/servant/src/PrintOut.hs new file mode 100644 index 0000000..5f95a22 --- /dev/null +++ b/servant/src/PrintOut.hs @@ -0,0 +1,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" -- cgit v1.2.3