Transform dots to path seps

jneira · jneira · commit f5f699536ef9 · 2020-10-14T22:07:53.000+02:00
diff --git a/src/Hie/Cabal/Parser.hs b/src/Hie/Cabal/Parser.hs
@@ -121,9 +121,10 @@ pathMain i p m o a =
     <|> (skipBlockLine i >> pathMain i p m o a)
     <|> pure
       ( map (<//> m) p
-          <> [ p' <//> (o' <> ".hs")
+          <> [ p' <//> (o'' <> ".hs")
                | p' <- p,
-                 o' <- filter (`notElem` a) o
+                 o' <- filter (`notElem` a) o,
+                 let o'' = T.replace "." "/" o'
              ]
       )
 

Original file line number	Diff line number	Diff line change
`@@ -121,9 +121,10 @@ pathMain i p m o a =`
`121`	`121`	`<\|> (skipBlockLine i >> pathMain i p m o a)`
`122`	`122`	`<\|> pure`
`123`	`123`	`( map (<//> m) p`
`124`		`- <> [ p' <//> (o' <> ".hs")`
	`124`	`+ <> [ p' <//> (o'' <> ".hs")`
`125`	`125`	`\| p' <- p,`
`126`		- o' <- filter (`notElem` a) o
	`126`	+ o' <- filter (`notElem` a) o,
	`127`	`+ let o'' = T.replace "." "/" o'`
`127`	`128`	`]`
`128`	`129`	`)`
`129`	`130`