diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-23 12:51:40 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-23 12:51:40 +0000 |
| commit | a8e274ee830bb6f72609295803d8ee37a36ea481 (patch) | |
| tree | 3ce6c1c36f5f8dc4b04853fffcd216afdcf12865 /server/src | |
| parent | 44fed137c50043f87e97996aa32f3353f9a2eeb0 (diff) | |
| download | thermoprint-a8e274ee830bb6f72609295803d8ee37a36ea481.tar thermoprint-a8e274ee830bb6f72609295803d8ee37a36ea481.tar.gz thermoprint-a8e274ee830bb6f72609295803d8ee37a36ea481.tar.bz2 thermoprint-a8e274ee830bb6f72609295803d8ee37a36ea481.tar.xz thermoprint-a8e274ee830bb6f72609295803d8ee37a36ea481.zip | |
Minor doc addition
Diffstat (limited to 'server/src')
| -rw-r--r-- | server/src/Thermoprint/Server/API.hs | 1 |
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 | |||
| 65 | :<|> (listDrafts :<|> addDraft) | 65 | :<|> (listDrafts :<|> addDraft) |
| 66 | :<|> updateDraft <||> getDraft <||> deleteDraft <||> printDraft | 66 | :<|> updateDraft <||> getDraft <||> deleteDraft <||> printDraft |
| 67 | where | 67 | where |
| 68 | -- :: (a -> b) -> (a -> c) -> (a -> b :<|> c) | ||
| 68 | (<||>) :: Monad m => m a -> m b -> m (a :<|> b) | 69 | (<||>) :: Monad m => m a -> m b -> m (a :<|> b) |
| 69 | (<||>) = liftM2 (:<|>) | 70 | (<||>) = liftM2 (:<|>) |
| 70 | infixr 9 <||> | 71 | infixr 9 <||> |