Avi-D-coder/implicit-hie
1
1
Fork 0
mirror of https://github.com/Avi-D-coder/implicit-hie.git synced 2024-11-30 00:33:29 +03:00
Code Issues Projects Releases Wiki Activity

Don't generate trailing spaces

Browse Source
This commit is contained in:
Avi Dessauer 2020-05-08 23:14:26 -04:00
parent 07bd89709f
commit 62e4f18708
2 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@ -50,7 +50,6 @@ cradle:
- path: "metametapost/src/Cli.hs" - path: "metametapost/src/Cli.hs"
component: "metametapost:exe:metametapost-optics" component: "metametapost:exe:metametapost-optics"
``` ```
## Features ## Features

9
src/Hie/Yaml.hs
View File

@ -18,7 +18,14 @@ hieYaml sOrC pkgs =
(sOrC <> ":\n" <> indent' pkgs) (sOrC <> ":\n" <> indent' pkgs)
indent' :: String -> String indent' :: String -> String
indent' = unlines . map (" " <>) . lines indent' =
unlines
. map
( \l -> case l of
"" -> ""
_ -> " " <> l
)
. lines
cabalComponent :: Name -> Component -> (FilePath, String) cabalComponent :: Name -> Component -> (FilePath, String)
cabalComponent n (Comp Lib "" p) = (T.unpack p, T.unpack $ "lib:" <> n) cabalComponent n (Comp Lib "" p) = (T.unpack p, T.unpack $ "lib:" <> n)