@@ -65,9 +65,13 @@ clean conf = do
6565-- | Preview the site
6666preview :: Configuration -> Verbosity -> Rules a -> Int -> IO ()
6767#ifdef PREVIEW_SERVER
68−preview _ _ _ _ = mapM_ putStrLn [ "The preview command has been deprecated."
69− , "Use the watch command for recompilation and serving."
70− , "You can disable the server with watch --no-server"]
68+preview conf verbosity rules port = do
69+ deprecatedMessage
70+ watch conf verbosity port True rules
71+ where
72+ deprecatedMessage = mapM_ putStrLn [ "The preview command has been deprecated."
73+ , "Use the watch command for recompilation and serving."
74+ ]
7175#else
7276preview _ _ _ _ = previewServerDisabled
7377#endif
@@ -87,12 +91,9 @@ watch conf verbosity port runServer rules = do
8791 (_, ruleSet) <- run conf verbosity rules
8892 return $ rulesPattern ruleSet
8993
90− server' :: IO ()
91− server' = if runServer
92− then (server conf port)
93− else (return ())
94−
9594 loop = threadDelay 100000 >> loop
95+
96+ server' = if runServer then server conf port else return ()
9697#else
9798watch _ _ _ _ _ = watchServerDisabled
9899#endif