Mercurial > urweb

comparison src/settings.sml @ 2232:a07b91fa71db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Ziv Scully <ziv@mit.edu>
date Wed, 06 May 2015 14:51:09 -0400
parents 54884b28b6c6 a159625975a7
children c05851bf7861
comparison
equal deleted inserted replaced
2231:67e801cf42c6 2232:a07b91fa71db
878 878
879 fun setFilePath path = filePath := path 879 fun setFilePath path = filePath := path
880 880
881 fun addFile {Uri, LoadFromFilename} = 881 fun addFile {Uri, LoadFromFilename} =
882 let 882 let
883 val path = OS.Path.mkAbsolute {relativeTo = !filePath, path = LoadFromFilename} 883 val path = OS.Path.concat (!filePath, LoadFromFilename)
884 in 884 in
885 case SM.find (!files, Uri) of 885 case SM.find (!files, Uri) of
886 SOME (path', _) => 886 SOME (path', _) =>
887 if path' = path then 887 if path' = path then
888 () 888 ()