1
1
mirror of https://github.com/github/semantic.git synced 2024-12-15 01:51:39 +03:00

QualifiedImport stores Strings not FilePaths

Co-Authored-By: Rick Winfrey <rick.winfrey@gmail.com>
This commit is contained in:
joshvera 2018-11-26 19:56:18 -05:00
parent 024da78987
commit 121207965e

View File

@ -181,7 +181,7 @@ instance Evaluatable Import where
-- evalQualifiedImport name path = letrec' name $ \addr -> do
-- unit <$ makeNamespace name addr Nothing (bindAll . fst . snd =<< require path)
newtype QualifiedImport a = QualifiedImport { qualifiedImportFrom :: NonEmpty FilePath }
newtype QualifiedImport a = QualifiedImport { qualifiedImportFrom :: NonEmpty String }
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Named1, Ord, Show, ToJSONFields1, Traversable, NFData1)
instance Message1 QualifiedImport where