aboutsummaryrefslogtreecommitdiff
path: root/server/src/Thermoprint/Server/API.hs
diff options
context:
space:
mode:
Diffstat (limited to 'server/src/Thermoprint/Server/API.hs')
-rw-r--r--server/src/Thermoprint/Server/API.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs
index 3f3ab46..770737a 100644
--- a/server/src/Thermoprint/Server/API.hs
+++ b/server/src/Thermoprint/Server/API.hs
@@ -98,8 +98,8 @@ thermoprintServer = listPrinters
98 :<|> (listDrafts :<|> addDraft) 98 :<|> (listDrafts :<|> addDraft)
99 :<|> updateDraft <||> getDraft <||> deleteDraft <||> printDraft 99 :<|> updateDraft <||> getDraft <||> deleteDraft <||> printDraft
100 where 100 where
101 -- :: (a -> b) -> (a -> c) -> (a -> b :<|> c) 101 -- :: (a -> b) -> (a -> c) -> (a -> b :<|> c)
102 (<||>) :: Monad m => m a -> m b -> m (a :<|> b) 102 (<||>) :: Monad m => m a -> m b -> m (a :<|> b)
103 (<||>) = liftM2 (:<|>) 103 (<||>) = liftM2 (:<|>)
104 infixr 9 <||> 104 infixr 9 <||>
105 105