diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-22 15:40:57 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-22 15:40:57 +0000 |
| commit | 6dfb26d6f2966b98c278afd3e269826c96c0ab26 (patch) | |
| tree | 6471dee7f8b5b008cae0665dc8c2e502d37d3e0c /server | |
| parent | 7ca94fb84f967fcfc741b7aa3662356e4fc0241f (diff) | |
| download | thermoprint-6dfb26d6f2966b98c278afd3e269826c96c0ab26.tar thermoprint-6dfb26d6f2966b98c278afd3e269826c96c0ab26.tar.gz thermoprint-6dfb26d6f2966b98c278afd3e269826c96c0ab26.tar.bz2 thermoprint-6dfb26d6f2966b98c278afd3e269826c96c0ab26.tar.xz thermoprint-6dfb26d6f2966b98c278afd3e269826c96c0ab26.zip | |
doc cleanup
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 | ||