Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Don't error out if a file is not part of the module graph.

  • Loading branch information...
commit dd907b905534346814952b259d97cddba4e252b1 1 parent 8ad1792
@nominolo authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 src-execs/Server.hs
View
4 src-execs/Server.hs
@@ -14,6 +14,7 @@ import Control.Applicative
--import Control.Exception ( throwIO, handle, IOException )
import Data.AttoLisp ( FromLisp(..), ToLisp(..) )
import Data.Bits ( shiftL, (.|.) )
+import Data.Monoid
import Data.String
--import Data.Char ( chr )
import Network ( listenOn, PortID(..) )
@@ -335,7 +336,8 @@ handleRequest (FileModified file0) Nothing = do
let file = T.unpack file0
ss <- fileSessions file
case ss of
- [] -> scionError "File not part of any session"
+ [] ->
+ return $ RFileModifiedResult False mempty
sid:_ -> do
fileModified sid file
RFileModifiedResult True <$> sessionNotes sid
Please sign in to comment.
Something went wrong with that request. Please try again.