fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor code cleaning

Browse Source
This commit is contained in:
SJost 2018-09-18 15:09:20 +02:00
parent 4234824f20
commit ffb69e7358
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Utils.hs
View File

@ -197,6 +197,8 @@ stepTextCounter text
number = takeWhileEnd isDigit $ dropWhileEnd (not . isDigit) text number = takeWhileEnd isDigit $ dropWhileEnd (not . isDigit) text
prefix = dropWhileEnd isDigit $ dropWhileEnd (not . isDigit) text prefix = dropWhileEnd isDigit $ dropWhileEnd (not . isDigit) text
-- Data.Text.groupBy ((==) `on` isDigit) $ Data.Text.pack "12.ProMo Ue3bung00322 34 (H)"
-- ["12",".ProMo Ue","3","bung","00322"," ","34"," (H)"]
------------ ------------

3
templates/default-layout.hamlet
View File

@ -16,8 +16,7 @@
<h1> <h1>
<!-- $maybe back <- lastMaybe parents <!-- $maybe back <- lastMaybe parents
<a .breadcrumbs__link href="@{fst back}">#{snd back} <a .breadcrumbs__link href="@{fst back}">#{snd back} -->
-->
$maybe headline <- contentHeadline $maybe headline <- contentHeadline
^{headline} ^{headline}
$nothing $nothing