From a8e274ee830bb6f72609295803d8ee37a36ea481 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 23 Jan 2016 12:51:40 +0000 Subject: Minor doc addition --- server/src/Thermoprint/Server/API.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'server/src') diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs index e147ac3..6411a70 100644 --- a/server/src/Thermoprint/Server/API.hs +++ b/server/src/Thermoprint/Server/API.hs @@ -65,6 +65,7 @@ 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) (<||>) = liftM2 (:<|>) infixr 9 <||> -- cgit v1.2.3