@@ -690,9 +690,9 @@ reload orig inputs = do
690690
691691watch :: IState -> [FilePath] -> Idris (Maybe [FilePath])
692692watch orig inputs = do
693− let inputSet = S.fromList inputs
694− let dirs = nub $ map takeDirectory inputs
695693 resp <- runIO $ do
694+ let dirs = nub $ map takeDirectory inputs
695+ inputSet <- fmap S.fromList $ mapM canonicalizePath inputs
696696 signal <- newEmptyMVar
697697 withManager $ \mgr -> do
698698 forM_ dirs $ \dir ->