1 files changed, 1 insertions, 0 deletions

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 <||>