include /video & /datenspuren too

c3d2 · Oct 22, 2011 · 730cf3c · 730cf3c
1 parent 128bc33
commit 730cf3c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/pentalog.hs b/pentalog.hs
@@ -129,7 +129,9 @@ isPentaMedia fn = not (SC.null fn) &&
                   isValid fn &&
                   oneDot fn &&
                   (fn `startsWith` "/pentaradio/" ||
-                   fn `startsWith` "/pentacast/")
+                   fn `startsWith` "/pentacast/" ||
+                   fn `startsWith` "/datenspuren/" ||
+                   fn `startsWith` "/video/")
     -- TODO: URL normalization & URI decoding
     where startsWith a b = take (fromIntegral $ length b) (SC.unpack a) == b
           oneDot s = case SC.uncons s of