aboutsummaryrefslogtreecommitdiff
path: root/servant/src/Main.hs
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2015-10-22 21:16:34 +0200
committerGregor Kleen <gkleen@yggdrasil.li>2015-10-22 21:16:34 +0200
commit0c60bbc1b54782e86c82cc103690e6e9cd4b2e34 (patch)
tree889ca8727f68cffc79be2af2a1f446bf49bc90f8 /servant/src/Main.hs
parentb24a594ebc4d1f98cb93d7f6b706f91c92a011dc (diff)
downloadthermoprint-0c60bbc1b54782e86c82cc103690e6e9cd4b2e34.tar
thermoprint-0c60bbc1b54782e86c82cc103690e6e9cd4b2e34.tar.gz
thermoprint-0c60bbc1b54782e86c82cc103690e6e9cd4b2e34.tar.bz2
thermoprint-0c60bbc1b54782e86c82cc103690e6e9cd4b2e34.tar.xz
thermoprint-0c60bbc1b54782e86c82cc103690e6e9cd4b2e34.zip
Fixed PrintOut
Diffstat (limited to 'servant/src/Main.hs')
-rw-r--r--servant/src/Main.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/servant/src/Main.hs b/servant/src/Main.hs
index 70d244c..0aa9eeb 100644
--- a/servant/src/Main.hs
+++ b/servant/src/Main.hs
@@ -10,6 +10,7 @@
10 10
11import Thermoprint 11import Thermoprint
12import Thermoprint.Api 12import Thermoprint.Api
13import PrintOut
13 14
14import qualified Data.Text.Lazy as TL 15import qualified Data.Text.Lazy as TL
15import qualified Data.ByteString.Lazy.Char8 as LBS 16import qualified Data.ByteString.Lazy.Char8 as LBS
@@ -144,7 +145,7 @@ thermoprintApi = Proxy
144 145
145main :: IO () 146main :: IO ()
146main = do 147main = do
147 execParser opts >>= runStderrLoggingT . main' 148 execParser opts >>= runNoLoggingT . main'
148 where 149 where
149 opts = info (helper <*> options) ( 150 opts = info (helper <*> options) (
150 fullDesc 151 fullDesc