Transform dots to path seps

This commit is contained in:
jneira 2020-10-14 22:07:53 +02:00
parent 536b425950
commit f5f699536e

View File

@ -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'
]
)