idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-11-24 15:07:37 +03:00
Code Issues Projects Releases Wiki Activity

Normalise to / in generating interface names

Browse Source 
In practice, this is only for consistency in the tests. Is this the
right way?
This commit is contained in:
Edwin Brady 2020-07-12 17:33:33 +01:00
parent 6a53e0177c
commit 3794b20d0c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Idris/Elab/Implementation.idr
View File

@ -26,9 +26,16 @@ import Data.NameMap
%default covering
replaceSep : String -> String
replaceSep = pack . map toForward . unpack
where
toForward : Char -> Char
toForward '\\' = '/'
toForward x = x
mkImpl : FC -> Name -> List RawImp -> Name
mkImpl fc n ps
= DN (show n ++ " implementation at " ++ show fc)
= DN (show n ++ " implementation at " ++ replaceSep (show fc))
(UN ("__Impl_" ++ show n ++ "_" ++
showSep "_" (map show ps)))