@@ -19,14 +19,16 @@ variable env var =
1919 where
2020 home = Var.Module (List.intercalate "." ms)
2121
22− _ -> case Map.lookup var (_values env) of
23− Just [v] -> Env.using v
24− Just vs -> preferLocals env "variable" vs var
25− Nothing -> notFound "variable" (Map.keys (_values env)) var
22+ _ ->
23+ case Map.lookup var (_values env) of
24+ Just [v] -> Env.using v
25+ Just vs -> preferLocals env "variable" vs var
26+ Nothing -> notFound "variable" (Map.keys (_values env)) var
2627 where
27− (modul, name) = case Help.splitDots var of
28− [x] -> (Nothing, x)
29− xs -> (Just (init xs), last xs)
28+ (modul, name) =
29+ case Help.splitDots var of
30+ [x] -> (Nothing, x)
31+ xs -> (Just (init xs), last xs)
3032
3133tvar :: Environment -> String
3234 -> Canonicalizer String (Either Var.Canonical (Var.Canonical, [String], Type.CanonicalType))