diff options
Diffstat (limited to 'Que/Host.hs')
| -rw-r--r-- | Que/Host.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Que/Host.hs b/Que/Host.hs index 5b51dba..3303709 100644 --- a/Que/Host.hs +++ b/Que/Host.hs @@ -60,7 +60,7 @@ main = Exception.bracket startup shutdown <| uncurry Warp.run putText "Que.Host" putText <| "port: " <> (show <| quePort c) putText <| "skey: " <> (show <| queSkey c) - return (port c, waiapp) + return (quePort c, waiapp) shutdown :: a -> IO a shutdown = pure . identity |