diff --git a/src/Utils.hs b/src/Utils.hs index 692fdbdee..c15a0c29a 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -197,6 +197,8 @@ stepTextCounter text number = takeWhileEnd 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)"] ------------ diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet index e21813363..788577105 100644 --- a/templates/default-layout.hamlet +++ b/templates/default-layout.hamlet @@ -16,8 +16,7 @@

+ #{snd back} --> $maybe headline <- contentHeadline ^{headline} $nothing