ruling out seperator string as barcode

2015-07-22 07:01:34 +02:00 · 2015-07-22 07:01:34 +02:00 · ddfa7957c4
parent 802f9d775f
commit ddfa7957c4
1 changed files with 1 additions and 1 deletions
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@ -123,7 +123,7 @@ handleGetParam Nothing _ =
  return ()
 handleGetParam (Just b) eub = do
  f <- return $ T.filter C.isAlphaNum b
-  case (T.length f) > 0 of
+  case (T.length f) > 0 && b /= ", " of
    True -> do
      e <- runDB $ getBy $ UniqueBarcode f
      case e of