ScopedSnocList: Fix CI

Co-authored-by: Viktor Yudov <[email protected]>

Author: GulinSS

Diff for: src/Compiler/CompileExpr.idr

@@ -478,7 +478,7 @@ mutual
                                 -- the RHS
                         then do log "compiler.newtype.world" 50 "Inlining case on \{show n} (no world)"
 
-                                sc' : CExp (vars <>< args) <- toCExpTree n sc
+                                sc' <- toCExpTree n sc
                                 let sc'' : CExp (vars ++ cast args)
                                 := rewrite sym $ fishAsSnocAppend vars args in sc'
 
@@ -493,7 +493,7 @@ mutual
                                 let (s, env) : (_, SubstCEnv (cast args) (vars :< MN "eff" 0))
                                         = mkSubst 0 (CLocal fc First) pos args
 
-                                sc' : CExp (vars <>< args) <- toCExpTree n sc
+                                sc' <- toCExpTree n sc
 
                                 let sc'' : CExp (vars ++ cast args)
                                     := rewrite sym $ fishAsSnocAppend vars args in sc'

Diff for: src/Core/Name/Scoped.idr

@@ -4,7 +4,7 @@ import Core.Name
 import Core.Name.CompatibleVars
 
 import Data.SnocList
-import Data.SnocList.HasLength
+import Libraries.Data.SnocList.HasLength
 import Libraries.Data.SnocList.SizeOf
 import Libraries.Data.List.SizeOf