@@ -374,7 +374,7 @@ orgPath :: String -> String
374orgPath src =
374orgPath src =
375 case src of
375 case src of
376 [] -> mempty -- wiki link
376 [] -> mempty -- wiki link
377− ('#':xs) -> xs -- internal link
377+ ('#':_) -> src -- internal link
378 _ | isUrl src -> src
378 _ | isUrl src -> src
379 _ | isFilePath src -> src
379 _ | isFilePath src -> src
380 _ -> "file:" <> src
380 _ -> "file:" <> src