Only warn about non-existant css links

chrisdone · Sep 11, 2013 · bc32ff2 · bc32ff2
1 parent 6ed185c
commit bc32ff2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/bdo.cabal b/bdo.cabal
@@ -1,5 +1,5 @@
 name:                bdo
-version:             1.0.0
+version:             1.0.1
 synopsis:            Update CSS in the browser without reloading the page.
 description:         Update CSS in the browser without reloading the page.
 license:             BSD3

diff --git a/src/Bdo.hs b/src/Bdo.hs
@@ -43,8 +43,11 @@ startServer listenPort = do
             | link `elem` links -> do T.hPutStrLn h "Sending link update ..."
                                       reply h' [] link
                                       hClose h'
-            | otherwise -> T.hPutStrLn h "That link doesn't exist in the page. To see the page's links: clients"
-          _ -> T.hPutStrLn h "That client isn't connected right now."
+            | otherwise -> do
+              T.hPutStrLn h "That link doesn't (didn't?) exist in the page. Sending anyway ..."
+              reply h' [] link
+              hClose h'
+          _ -> do T.hPutStrLn h "That client isn't connected right now."
       updateCurrentClient h = do client <- readMVar currentClient
                                  case client of
                                    Nothing -> hPutStrLn h "No current client!"