diff options
Diffstat (limited to 'server')
-rw-r--r-- | server/src/Thermoprint/Server/API.hs | 4 |
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 | ||