From 6dfb26d6f2966b98c278afd3e269826c96c0ab26 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 22 Feb 2016 15:40:57 +0000 Subject: doc cleanup --- server/src/Thermoprint/Server/API.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'server/src') 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 :<|> (listDrafts :<|> addDraft) :<|> updateDraft <||> getDraft <||> deleteDraft <||> printDraft where - -- :: (a -> b) -> (a -> c) -> (a -> b :<|> c) - (<||>) :: Monad m => m a -> m b -> m (a :<|> b) + -- :: (a -> b) -> (a -> c) -> (a -> b :<|> c) + (<||>) :: Monad m => m a -> m b -> m (a :<|> b) (<||>) = liftM2 (:<|>) infixr 9 <||> -- cgit v1.2.3