Normalise, too, when making absolute paths.

Otherwise, we might end up with things like `/foo/./bar`.

src/Scion/Session.hs

@@ -343,8 +343,9 @@ loadComponent comp = do
    modifySessionState $ \s -> s { lastCompResult = rslt }
    return rslt
   where
-    maybe_set_working_dir (File f) =
-      let dir = dropFileName f in
+    maybe_set_working_dir (File f) = do
+      wd <- liftIO $ getCurrentDirectory
+      let dir = normalise $ wd </> dropFileName f
       setWorkingDir dir
     maybe_set_working_dir _ = do
       dir <- cabalProjectRoot

src/Scion/Types/Notes.hs

@@ -59,7 +59,7 @@ mkAbsFilePath :: FilePath -- ^ base directory (must be absolute)
               -> FilePath -- ^ absolute or relative 
               -> AbsFilePath
 mkAbsFilePath baseDir dir
-  | isAbsolute baseDir = AFP $ baseDir </> dir
+  | isAbsolute baseDir = AFP $ normalise $ baseDir </> dir
   | otherwise =
       error "mkAbsFilePath: first argument must be an absolute path"